| 
**************************************************************** * * * DATA STRUCTURE FOR API: QMHLSTM * * FORMAT: LSTM0100 * * LANGUAGE: COBOL * * * **************************************************************** 01 LSTM0100-INPUT. 05 SPACE-NAME PIC X(10). 05 SPACE-NAME-LIB PIC X(10). 05 FORMAT-NAME PIC X(8). 05 SELECTION-FORMAT-NAME PIC X(8). 05 SELECTION-LENGTH PIC S9(9) COMP-4. 05 MAX-MSGS-REQUESTED PIC S9(9) COMP-4. 05 LIST-DIRECTION PIC X(10). 05 SELECTION-CRITERIA PIC X(10). 05 SEVERITY-CRITERIA PIC S9(9) COMP-4. 05 MAX-MSG-LEN PIC S9(9) COMP-4. 05 MAX-HELP-LEN PIC S9(9) COMP-4. 05 OFFSET-TO-QUEUES PIC S9(9) COMP-4. 05 OFFSET-TO-KEYS PIC S9(9) COMP-4. 05 NUMBER-OF-QUEUES PIC S9(9) COMP-4. |
|
05 OFFSET-OF-FLD-IDS PIC S9(9) COMP-4. 05 NUMBER-OF-FLD-IDS PIC S9(9) COMP-4. * 05 QUEUE-NAME-ARRAY( ) PIC X(20). * 05 MSG-KEYS-ARRAY( ) PIC X(4). * 05 FLD-IDS-ARRAY( ) PIC S9(9) COMP-4. 01 LSTM0100-HEADER. 05 SPACE-NAME PIC X(10). 05 SPACE-NAME-LIB PIC X(10). 05 OFFSET-TO-QUEUES PIC S9(9) COMP-4. 05 OFFSET-TO-START-KEYS PIC S9(9) COMP-4. 05 OFFSET-TO-END-KEYS PIC S9(9) COMP-4. 05 NUMBER-OF-QUEUES PIC S9(9) COMP-4. * 05 QUEUE-NAME-ARRAY( ) PIC X(20). * 05 START-KEYS-ARRAY( ) PIC X(4). * 05 END-KEYS-ARRAY( ) PIC X(4). 01 LSTM0100-LSTHDR. 05 BEGIN-OFFSET PIC S9(9) COMP-4. 05 FIELD-OFFSET PIC S9(9) COMP-4. 05 NUMBER-OF-FIELDS PIC S9(9) COMP-4. 05 MESSAGE-SEVERITY PIC S9(9) COMP-4. 05 MESSAGE-ID PIC X(7). 05 MESSAGE-TYPE PIC X(2). |
|
05 MESSAGE-REF-KEY PIC X(4). 05 MESSAGE-FILE PIC X(10). 05 MESSAGE-FILE-LIB PIC X(10). 05 MESSAGE-QUEUE PIC X(10). 05 MESSAGE-QUEUE-LIB PIC X(10). 05 LENGTH-MSG-RETURNED PIC S9(9) COMP-4. 05 LENGTH-MSG-AVAILABLE PIC S9(9) COMP-4. 05 DATE-SENT PIC X(7). 05 TIME-SENT PIC X(6). 01 LSTM0100-LSTDTA. 05 NEXT-OFFSET PIC S9(9) COMP-4. 05 ENTRY-LENGTH PIC S9(9) COMP-4. 05 DATA-ID PIC S9(9) COMP-4. 05 DATA-TYPE PIC X(1). 05 DATA-STATUS PIC X(1). 05 RSVD PIC X(14). 05 DATA-LENGTH PIC S9(9) COMP-4. * 05 DATA PIC X( ). I**************************************************************** I* * I* DATA STRUCTURE FOR API: QMHLSTM * I* FORMAT: LSTM0100 * |
|
I* LANGUAGE: RPG * I* * I**************************************************************** IINPUT DS I 1 10 SPCNAM I 11 20 SPCLIB I 21 28 FORMAT I 29 36 SELFOR I B 37 400SIZSEL I B 41 440MAXMSG I 45 54 LSTDIR I 55 64 SELCRI I B 65 680SEVCRI I B 69 720SMXFLT I B 73 760SMXSLT I B 77 800QNMOFF I B 81 840SKYOFF I B 85 880NUMMQS I B 89 920RIDOFF I B 93 960NUMFID I* 97 QNAMES I* STRKYS |
|
I* RTFIDS IHEADER DS I 1 10 SPCNMH I 11 20 SPCLBH I B 21 240QNMOFF I B 25 280SKYOFF I B 29 320EKYOFF I B 33 360NUMMQS I* 37 QNAMES I* STRKYS I* ENDKYS ILSTHDR DS I B 1 4 BGNOFF I B 5 8 FLDOFF I B 9 12 NUMFLD I B 13 16 MSGSEV I 17 23 MSGID I 24 25 MSGTYP I 26 29 MSGKEY I 30 39 MSGF I 40 49 MSGFLB I 50 59 MSGQNM |
|
I 60 69 MSGQLB I 70 76 DATSNT I 77 82 TIMSNT I 83 96 LSTRSV ILSTDTA I B 1 40NXTDTA I B 5 80DTAIDL I B 9 120DTAID I 13 13 DTATYP I 14 14 DTASTS I 15 28 DTARSV I 29 32 DTALEN I* 33 DTAARA I* PAD |
