View previous topic :: View next topic |
Author |
Message |
nadh Intermediate
Joined: 08 Oct 2004 Posts: 192 Topics: 89
|
Posted: Thu Mar 10, 2011 8:28 am Post subject: Command Code Declaration. |
|
|
Hi,
So far I've come across that command code field is declared as PIC X(1) and we will move appropriate command code to that field. IMS assumes anything followed '*' is command code. But I've seen the below code.
Code: |
01 STADET-SSA.
05 STADET-SEG-NAMES PIC X(08) VALUE 'STADET '.
05 STADET-COMM-CODE-IND PIC X(01) VALUE '*'.
05 STADET-SSA-COM-CODE PIC X(02) VALUE '--'.
05 STADET-BEG-QUALIFIER PIC X(01) VALUE '('.
05 STADET-KEY-NAME PIC X(08) VALUE 'EDETIDKY'.
05 STADET-RO PIC X(02) VALUE ' ='.
05 STADET-KEY-VALUE PIC X(22) VALUE SPACE.
05 STADET-END-QUALIFIER PIC X(01) VALUE ')'.
|
Above one is SSA declaration
05 STADET-SSA-COM-CODE PIC X(02) VALUE '--'.
Here command code is declared as PIC X(02) and '--' is the value. So it is null indicator. But my doubt is after '*' there are two characters how ims interprets it.
And in program code is like below
Code: |
MOVE CM-LEFT-PAREN TO STAB00-BEG-QUALIFIER
STADET-BEG-QUALIFIER.
MOVE SPACES TO STAB00-KEY-VALUE.
MOVE CM-SYSTEM-ID TO STAB00-KEY-SYS-ID.
MOVE WS-CARRIER-CODE TO STAB00-KEY-CARRIER.
MOVE CM-STAB005 TO STAB00-KEY-TABLE-NUM.
SKIP1
MOVE SPACES TO STADET-005-KEY.
MOVE SCR-EQUIP TO STADET-005-EQUIP-ABBR-KEY.
MOVE A01-SYSTEM-DATE TO STADET-005-EFF-DATE.
MOVE '-L' TO STADET-SSA-COM-CODE.
MOVE '=<' TO STADET-RO.
MOVE STADET-005-KEY TO STADET-KEY-VALUE.
SKIP1
PERFORM 9300-GU-TBL-005. |
MOVE '-L' TO STADET-SSA-COM-CODE.
Here '-L' is passed to access last occurance. But after '*', '-L' is followed how ims operates here. How it will ignore '-' before 'L'. I've seen some where that command code field is variable..and declared as PIC X(4). Please clarify how it should be declared and how the values are passed.
Thanks & Regards
Nadh |
|
Back to top |
|
|
nadh Intermediate
Joined: 08 Oct 2004 Posts: 192 Topics: 89
|
Posted: Thu Mar 10, 2011 9:07 am Post subject: |
|
|
Hi,
After some research I assume that after '*' all the characters are treated as command codes till '(' is found or space is found. Is this correct. Though normally we will code PIC X(1) for command code field.
Thanks & Regards
Nadh |
|
Back to top |
|
|
kolusu Site Admin
Joined: 26 Nov 2002 Posts: 12357 Topics: 75 Location: San Jose
|
|
Back to top |
|
|
IEFBR14 Beginner
Joined: 13 Aug 2008 Posts: 17 Topics: 0 Location: SYS1.LINKLIB
|
Posted: Thu Mar 10, 2011 7:17 pm Post subject: |
|
|
Ah the Fine Manuals ... how they just love to be read |
|
Back to top |
|
|
|
|