| 
**************************************************************** * * * API: QCDRCMDI * * FORMAT: CMDI0100 * * * **************************************************************** 01 CMDI0100-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 COMMAND-NAME PIC X(10). 05 COMMAND-LIBRARY PIC X(10). 05 COMMAND-PROCESSING-PGM-NAME PIC X(10). 05 COMMAND-PROCESSING-PGM-LIBRARY PIC X(10). 05 SOURCE-FILE-NAME PIC X(10). 05 SOURCE-FILE-LIBRARY PIC X(10). 05 SOURCE-FILE-MEMBER PIC X(10). 05 VALIDITY-CHECK-PROGRAM-NAME PIC X(10). 05 VALIDITY-CHECK-PROGRAM-LIBRARY PIC X(10). 05 MODE-INFORMATION. * '0'=non , '1'=oui 10 PRODUCT-MODE PIC X. 10 DEBUG-MODE PIC X. |
|
10 SERVICE-MODE PIC X. 10 filler pic X(7). 05 WHERE-ALLOWED-TO-RUN. * '0'=non , '1'=oui 10 BPGM PIC X. 10 IPGM PIC X. 10 EXEC PIC X. 10 INTERACT PIC X. 10 BATCH PIC X. 10 BREXX PIC X. 10 IREXX PIC X. 10 filler pic X(8). 05 ALLOW-LIMITED-USER PIC X(01). 05 MAXIMUM-POSITIONAL-PARAMETERS PIC S9(9) COMP-4. 05 PROMPT-MESSAGE-FILE-NAME PIC X(10). 05 PROMPT-MESSAGE-FILE-LIBRARY PIC X(10). 05 MESSAGE-FILE-NAME PIC X(10). 05 MESSAGE-FILE-LIBRARY PIC X(10). 05 HELP-PANEL-GROUP-NAME PIC X(10). 05 HELP-PANEL-GROUP-LIBRARY PIC X(10). 05 HELP-IDENTIFIER PIC X(10). 05 SEARCH-INDEX-NAME PIC X(10). |
|
05 SEARCH-INDEX-LIBRARY PIC X(10). 05 CURRENT-LIBRARY PIC X(10). 05 PRODUCT-LIBRARY PIC X(10). 05 PROMPT-OVERRIDE-PGM-NAME PIC X(10). 05 PROMPT-OVERRIDE-PGM-LIBRARY PIC X(10). 05 RESTRICTED-TO-TARGET-RELEASE PIC X(06). 05 TEXT-DESCRIPTION PIC X(50). 05 RESERVED1 PIC X(36). I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 18 CDNAME I 19 28 CDLIB I 29 38 CDPGNA I 39 48 CDPGLB I 49 58 SRCFIL I 59 68 SRCLIB I 69 78 SRCMBR I 79 88 CKPGNA I 89 98 CKPGLB * '0'=non , '1'=oui |
|
I 99 108 MODINF I 99 99 PRODUC I 100 100 DEBUG I 101 101 SERVIC * '0'=non , '1'=oui I 109 123 ALWRUN I 109 109 BPGM I 110 110 IPGM I 111 111 EXEC I 112 112 INTER I 113 113 BATCH I 114 114 BREXX I 115 115 IREXX * I 124 124 ALWUSR I B 125 1280MAXPOS I 129 138 PMSGFL I 139 148 PMSGLB I 149 158 MSGFIL I 159 168 MSGLIB I 169 178 HLPNAM I 179 188 HLPLIB |
|
I 189 198 HLPID I 199 208 SCHNAM I 209 218 SCHLIB I 219 228 CURLIB I 229 238 PRODLB I 239 248 POVRNA I 249 258 POVRLB I 259 264 TARREL I 265 314 TXTDES I 315 350 RESER1 **************************************************************** * * * API : QCDRCMDI * * FORMAT: CMDI0200 * * * **************************************************************** 01 CMDI0200-RCVVAR. 05 BYTES-RETURNED PIC S9(9) COMP-4. 05 BYTES-AVAILABLE PIC S9(9) COMP-4. 05 COMMAND-NAME PIC X(10). 05 COMMAND-LIBRARY PIC X(10). 05 COMMAND-PROCESSING-PGM-NAME PIC X(10). |
|
05 COMMAND-PROCESSING-PGM-LIBRARY PIC X(10). 05 SOURCE-FILE-NAME PIC X(10). 05 SOURCE-FILE-LIBRARY PIC X(10). 05 SOURCE-FILE-MEMBER PIC X(10). 05 VALIDITY-CHECK-PROGRAM-NAME PIC X(10). 05 VALIDITY-CHECK-PROGRAM-LIBRARY PIC X(10). 05 MODE-INFORMATION. * '0'=non , '1'=oui 10 PRODUCT-MODE PIC X. 10 DEBUG-MODE PIC X. 10 SERVICE-MODE PIC X. 10 filler pic X(7). 05 WHERE-ALLOWED-TO-RUN. * '0'=non , '1'=oui 10 BPGM PIC X. 10 IPGM PIC X. 10 EXEC PIC X. 10 INTERACT PIC X. 10 BATCH PIC X. 10 BREXX PIC X. 10 IREXX PIC X. 10 filler pic X(8). |
|
05 ALLOW-LIMITED-USER PIC X(01). 05 MAXIMUM-POSITIONAL-PARAMETERS PIC S9(9) COMP-4. 05 PROMPT-MESSAGE-FILE-NAME PIC X(10). 05 PROMPT-MESSAGE-FILE-LIBRARY PIC X(10). 05 MESSAGE-FILE-NAME PIC X(10). 05 MESSAGE-FILE-LIBRARY PIC X(10). 05 HELP-PANEL-GROUP-NAME PIC X(10). 05 HELP-PANEL-GROUP-LIBRARY PIC X(10). 05 HELP-IDENTIFIER PIC X(10). 05 SEARCH-INDEX-NAME PIC X(10). 05 SEARCH-INDEX-LIBRARY PIC X(10). 05 CURRENT-LIBRARY PIC X(10). 05 PRODUCT-LIBRARY PIC X(10). 05 PROMPT-OVERRIDE-PGM-NAME PIC X(10). 05 PROMPT-OVERRIDE-PGM-LIBRARY PIC X(10). 05 RESTRICTED-TO-TARGET-RELEASE PIC X(06). 05 TEXT-DESCRIPTION PIC X(50). 05 RESERVED1 PIC X(36). 05 REXX-SOURCE-FILE-NAME PIC X(10). 05 REXX-SOURCE-FILE-LIBRARY PIC X(10). 05 REXX-SOURCE-FILE-MEMBER PIC X(10). 05 REXX-COMMAND-ENV-NAME PIC X(10). |
|
05 REXX-COMMAND-ENV-LIBRARY PIC X(10). 05 RESERVED2 PIC X(40). 05 NUMBER-OF-REXX-EXIT-PROGRAMS PIC S9(9) COMP-4. 05 LENGTH-OF-REXX-ENTRY PIC S9(9) COMP-4. I**************************************************************** IRCVVAR DS I B 1 40BYTRTN I B 5 80BYTVAL I 9 18 CDNAME I 19 28 CDLIB I 29 38 CDPGNA I 39 48 CDPGLB I 49 58 SRCFIL I 59 68 SRCLIB I 69 78 SRCMBR I 79 88 CKPGNA I 89 98 CKPGLB * '0'=non , '1'=oui I 99 108 MODINF I 99 99 PRODUC I 100 100 DEBUG I 101 101 SERVIC |
|
* '0'=non , '1'=oui I 109 123 ALWRUN I 109 109 BPGM I 110 110 IPGM I 111 111 EXEC I 112 112 INTER I 113 113 BATCH I 114 114 BREXX I 115 115 IREXX * I 124 124 ALWUSR I B 125 1280MAXPOS I 129 138 PMSGFL I 139 148 PMSGLB I 149 158 MSGFIL I 159 168 MSGLIB I 169 178 HLPNAM I 179 188 HLPLIB I 189 198 HLPID I 199 208 SCHNAM I 209 218 SCHLIB I 219 228 CURLIB |
|
I 229 238 PRODLB I 239 248 POVRNA I 249 258 POVRLB I 259 264 TARREL I 265 314 TXTDES I 315 350 RESER1 I 351 360 RSRCNA I 361 370 RSRCLB I 371 380 RSRCMB I 381 390 RENVNA I 391 400 RENVLB I 401 440 RESER2 I B 441 4440NUMREX I B 445 4480LENREX |
