IDMS

 View Only
  • 1.  How to Undo an Extend Space against an Area in IDMS

    Posted Dec 08, 2022 09:44 AM
    How do I remove an EXTEND SPACE from my dictionary (which in this case, I haven't completed doing because I have not generated the DMCL and put the new DMCL load module into use.)?

    I have run an ALTER AREA  ...  EXTEND SPACE and my SYSTEM dictionary now shows that definition against the area.
    Now if I generate, punch, and link edit the DMCL that definition will be in the DMCL load module.

    I want to remove it so that the definition doesn't propagate to the DMCL load module. (

    My purpose for removing the extend space is that I need to make a change to my journals to increase their sizes and don't want to have to deal with the EXTEND SPACE against the 'other' area at the same time.

    I am going to try to show a pair of screen shots of what it looks like now and what I want it to look like. The left is what it looks like now. Is it as simple as doing an ALTER AREA with the definition I want (on the right)?

    Area definition with/without EXTEND SPACE


    Paul Schulz
    Nationwide


  • 2.  RE: How to Undo an Extend Space against an Area in IDMS

    Posted Dec 08, 2022 10:14 AM
    Hi Paul,

    I've had to do this before.?? If I remember correctly, I dropped the area
    and re-added it with original definition.

    Good luck,
    Laura Rochon
    Hera Evolution




  • 3.  RE: How to Undo an Extend Space against an Area in IDMS

    Posted Dec 09, 2022 03:52 AM
    Hi Paul,

    This is how we probably would handle such case:

    ALTER PHYSICAL AREA FCSP0100.FCS-COMMER-AREA
    EXCLUDE FILE FCS-COMMER-FILE
    EXCLUDE FILE FCS-COMMER2-FILE
    ;
    ALTER PHYSICAL AREA FCSP0100.FCS-COMMER-AREA
    PRIMARY SPACE 1760 PAGES FROM PAGE 1690001
    MAXIMUM SPACE 1760 PAGES
    PAGE SIZE 3860 CHARACTERS
    WITHIN FILE FCS-COMMER-FILE
    FROM 1 FOR ALL BLOCKS
    ;
    DROP FILE FCSP0100.FCS-COMMER2-FILE
    ;

    That should give the desired result.

    Kind regards,
    Johan Nevens
    Colruyt Group