| 
**************************************************************** * * * DATA STRUCTURE FOR API: QMHLJOBL * * FORMAT: JSLT0100 * * LANGUAGE: COBOL * * NOTE: THE BEGINNING AND ENDING POSITIONS FOR THE MESSAGE * * QUEUE NAMES, STARTING MESSAGE KEYS AND RETURN FIELD * * IDENTIFIERS WILL NEED TO BE FILLED IN BY THE USER. * * * **************************************************************** 01 JSLT0100-RCVVAR. 05 MAX-MSGS-REQUESTED PIC S9(9) COMP-4. 05 LIST-DIRECTION PIC X(10). 05 QUALIFIED-JOB-NAME PIC X(26). 05 INTERNAL-JOB-IDENTIFIER PIC X(16) 05 START-MSG-KEY PIC X(4) 05 MAX-MSG-LEN PIC S9(9) COMP-4. 05 MAX-HELP-LEN PIC S9(9) COMP-4. 05 OFFSET-TO-FIELD PIC S9(9) COMP-4. 05 OFFSET-TO-QUEUE PIC S9(9) COMP-4. 05 NUMBER-OF-QUEUES PIC S9(9) COMP-4. 05 OFFSET-OF-CALL-MSGQ PIC S9(9) COMP-4. |
|
05 NUMBER-OF-CALL-MSGQ 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. I**************************************************************** I* * I* DATA STRUCTURE FOR API: QMHJOBL * I* FORMAT: JSLT0100 * I* LANGUAGE: RPG * I* NOTE: THE BEGINNING AND ENDING POSITIONS FOR THE MESSAGE * I* QUEUE NAMES, STARTING MESSAGE KEYS AND RETURN FIELD * I* IDENTIFIERS WILL NEED TO BE FILLED IN BY THE USER. * I* * I**************************************************************** ISELECT DS I B 1 40SMXMSG I 5 14 SLSTDR I 15 40 JOBQUA I 41 56 JOBINT I B 57 60 STRKEY I B 61 640MXLMSG I B 65 680MXLHLP |
|
I B 69 720FLDOFF I B 73 760NBRFLD I B 77 800CMQOFF I B 81 840CMQLEN I* 85 SQNAMS I* B 0SSTRKY I* B 0SFLDID **************************************************************** * * * DATA STRUCTURE FOR API: QMHLJOBL * * FORMAT: LJOB0100 * * LANGUAGE: COBOL * * * **************************************************************** 01 LJOB0100-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 LENGTH-SELECTION-INFO PIC S9(9) COMP-4. 05 MAX-MSGS-REQUESTED PIC S9(9) COMP-4. 05 LIST-DIRECTION PIC X(10). |
|
05 JOB-NAME PIC X(10). 05 USER-PROFILE PIC X(10). 05 JOB-NUMBER PIC X(6). 05 INTERNAL-JOB-ID PIC X(16). 05 START-KEY PIC X(4). 05 MAX-MSG-LENGTH PIC S9(9) COMP-4. 05 MAX-HELP-LENGTH 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 OFFSET-OF-INV-Q-NAME PIC S9(9) COMP-4. 05 LENGTH-OF-INV-Q-NAME PIC S9(9) COMP-4. * 05 FLD-IDS-ARRAY( ) PIC S9(9) COMP-4. * 05 INV-Q-NAME PIC X( ). 01 LJOB0100-HEADER. 05 SPACE-NAME PIC X(10). 05 SPACE-NAME-LIB PIC X(10). 05 START-KEY PIC X(4). 05 END-KEY PIC X(4). 05 JOB-NAME PIC X(10). 05 USER-PROFILE PIC X(10). 05 JOB-NUMBER PIC X(6). 01 LJOB0100-LSTHDR. |
|
05 BEGIN-OFFSET PIC S9(9) COMP-4. 05 OFFSET-OF-FLDS PIC S9(9) COMP-4. 05 NUMBER-OF-FLDS 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-KEY PIC X(4). 05 MESSAGE-FILE PIC X(10). 05 MESSAGE-FILE-LIB PIC X(10). 05 DATE-SENT PIC X(7). 05 TIME-SENT PIC X(6). 01 LJOB0100-LSTDTA. 05 NEXT-OFFSET PIC S9(9) COMP-4. 05 LENGTH-OF-ENTRY 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: QMHLJOBL * I* FORMAT: LJOB0100 * 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 JOBNAM I 65 74 USRPRF I 75 80 JOBNUM I 81 96 JOBID I 97 100 STRKEY I B 101 1040SMXFLT I B 105 1080SMXSLT I B 109 1120OFFRET I B 113 1160NUMRET |
|
I B 117 1200OFFINV I B 121 1240LENINV I* 125 RESERV I* SELIDS I* MSGDTA IHEADER DS I 1 10 SPCNMH I 11 20 SPCLBH I 21 24 STRKYH I 25 28 ENDKYH I 29 38 JOBNMH I 39 48 USRPRH I 49 54 JOBNBH 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 56 DATSNT I 57 62 TIMSNT I 63 64 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 B 29 320DTALEN I* 33 DTAARA I* PAD |
