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