MACRO                                                          00500002
         IGGPARML                                                       01000002
* /* MACCOMP Y-2 SC1D0/SJD48            */                              01050002
* /* MACSTAT Y-2 73124/021160           */                              01100002
.* /* START OF SPECIFICATIONS ****                                      01150002
.*                                                                      01200002
.*01  MODULE-NAME = IGGPARML                                            01250002
.*                                                                      01300002
.*01  COPYRIGHT = NONE                                                  01350002
.*                                                                      01400002
.*01  STATUS = VS2 RELEASE 2 LEVEL 2                                    01450002
.*                                                                      01460002
.*01  DESCRIPTIVE-NAME = OPEN/CLOSE EXECUTOR PARAMETER LIST             01470002
.*                                                                      01480002
.*01  FUNCTION = DESCRIBES PARAMETER LIST PASSED TO OPEN/CLOSE EXECS    01490002
.*                                                                      01492002
.*01  MODULE-TYPE = MACRO                                               01494002
.*                                                                      01496002
.*02    MACRO-SIZE = NA FOR MAPPING MACRO                               01498002
.*                                                                      01498402
.*02    PARAMETER-RECEIVED = NONE                                       01498802
.*                                                                      01499202
.*01  TABLES = NONE                                                     01499602
.*                                                                      01499702
.*01  INNER-MACROS = NONE                                               01499802
.*                                                                      01499902
.*01  SYSTEM-MACROS = NONE                                              01549902
.*                                                                      01559902
.*01  CHANGE-ACTIVITY = SEE BELOW                                       01569902
.*    VS2 REL 2                                                         01579902
.*       MACRO CREATED                                                  01589902
.*                                                                      01591902
.*                                                                      01593902
.**** END OF SPECIFICATIONS ***/                                        01595902
*                                                                       01599902
* THIS DSECT EXPANDS THE ONE WORD PARAMETER LIST PASSED TO THE          02000002
* OPEN/CLOSE EXECUTORS FROM COMMON OPEN/CLOSE.                          02500002
*                                                                       03000002
* DESCRIPTIVE LAYOUT                                                    03050002
*           +0        +1                                                03100002
*              ________________________________________                 03150002
*              |        |                             |                 03160002
*              | OPTION |   DCB ADDRESS               |                 03200002
*              |________|_____________________________|                 03300002
*                                                                       03350002
         SPACE 2                                                        03400002
PARML    DSECT                                                          03500002
PARDCBAD DS    0A                       SAME AS PARDCBAB BELOW          04000002
PAROPT   DS    X                        OPEN/CLOSE OPTIONS              04500002
PARENLST EQU   X'80'                    INDICATES END OF LIST           04510002
*                                                                       04550002
* CLOSE OPTIONS                                                         04600002
*                                                                       04650002
PARREWND EQU   X'40'                    REWIND                          04700002
PARLEAVE EQU   X'30'                    LEAVE                           04750002
PARFREE  EQU   X'20'                    UNALLOCATE DURING CLOSE         04800002
PARRREAD EQU   X'10'                    REREAD                          04850002
*                                                                       04900002
* OPEN OPTIONS                                                          04950002
*                                                                       04960002
PAROUTPT EQU   X'0F'                    OUTPUT                          04970002
PAROUTIN EQU   X'07'                    OUTIN                           04980002
PARUPDAT EQU   X'04'                    UPDATE                          04990002
PARINOUT EQU   X'03'                    INOUT                           04992002
PARRDBCK EQU   X'01'                    READBACK                        04994002
PARINPUT EQU   X'00'                    INPUT                           04996002
PARDCBAB DS    AL3                      ADDRESS OF DCB                  05000002
         MEND                                                           05500002