&CONTROL OFF
&ERROR &EXIT &RETCODE
&IF &INDEX LE 0 &GOTO -QUERY
FI SYSPRINT DISK ASS SYSPRINT A ( RECFM VA LRECL 137
FI LIST DISK &1 LISTING A(RECFM VA LRECL 137
FI OUTPUT DISK ASS OUTPUT A ( RECFM VA LRECL 137
FI SYSUT1 DISK CMSUT1 TEMP A ( RECFM V LRECL 84
FI GO DISK &1 HUNK A ( RECFM V LRECL 84
FI M80P DISK ASS86 OPCODES A ( RECFM V LRECL 84
FI ASSF DISK &1 ASS86 A ( RECFM V LRECL 84
FI SYSTERM T ( RECFM VA LRECL 137 LOWCASE
FI SYSIN T ( RECFM F LRECL 80
&ERROR
A861 XP
&ERROR &EXIT &RETCODE
&TRET = &RETCODE
FI * CLEAR
ERASE CMSUT1 TEMP A
&RETCODE = &TRET
&EXIT &RETCODE
*
-QUERY &TYPE FILE?
&RETCODE = 4
&EXIT 4