MACRO                                                          00001000
         KEYSECT                                                        00002000
         PUSH  PRINT                                                    00002200
         AIF   ('&SYSPARM' NE 'SUP').ACC01                              00002400
         PRINT OFF,NOGEN                                                00002600
.ACC01   ANOP                                                           00002800
KEYSECT  DSECT                                                          00003000
KEYLNGTH DS    1F -               KEY LENGTH                            00004000
DATAEND  DS    1F -               ITEM PTR TO LAST DATA ITEM IN FILE    00005000
KEYOP    DS    2F -               START OF PLIST FOR KEYS FILE          00006000
KEYNAME  DS    2F -               NAME OF KEYS FILE                     00007000
KEYTYPE  DS    2F -               FILE TYPE OF KEYS FILE                00008000
KEYMODE  DS    1H -               FILE MODE OF KEYS FILE                00009000
KEYTBLNO DS    1H -               ITEM NO. OF KEY TABLE                 00010000
KEYTBLAD DS    1F -               ADDRESS OF KEY TABLE                  00011000
TBLLNGTH DS    1F -               BYTE SIZE OF KEY TABLE                00012000
KEYFORM  DS    1X -               FORMAT OF KEYS FILE                   00013000
KEYCHNG  DS    1X -               INDICATES CHANGE IN KEY TABLE         00014000
KEYCOUT  DS    1H -               BLOCKING FACTOR FACTOR OF KEY TABLE   00015000
         DS    1F -               NO. OF BYTES READ                     00016000
KEYTABLE DS    0F -               START OF TABLE (ITEM) FULL OF KEYS    00017000
         POP   PRINT                                                    00017100
         MEND                                                           00018000