MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Command Code Declaration.

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS
View previous topic :: View next topic  
Author Message
nadh
Intermediate


Joined: 08 Oct 2004
Posts: 192
Topics: 89

PostPosted: Thu Mar 10, 2011 8:28 am    Post subject: Command Code Declaration. Reply with quote

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
View user's profile Send private message Send e-mail
nadh
Intermediate


Joined: 08 Oct 2004
Posts: 192
Topics: 89

PostPosted: Thu Mar 10, 2011 9:07 am    Post subject: Reply with quote

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
View user's profile Send private message Send e-mail
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12357
Topics: 75
Location: San Jose

PostPosted: Thu Mar 10, 2011 5:18 pm    Post subject: Reply with quote

nadh,

Did you read the coding rules for SSA?

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DFSP30F3/1.3.14

Kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
IEFBR14
Beginner


Joined: 13 Aug 2008
Posts: 17
Topics: 0
Location: SYS1.LINKLIB

PostPosted: Thu Mar 10, 2011 7:17 pm    Post subject: Reply with quote

Ah the Fine Manuals ... how they just love to be read
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group