&CONTROL OFF
&ERROR &EXIT &RETCODE
&IF &INDEX LE 0 &GOTO -QUERY
&RELCON = 3000/
&IF &INDEX LT 2 &GOTO -NOREL
&RELCON = &CONCAT &2 /
*
-NOREL
FI CODE DISK &1 HUNK  A ( RECFM V LRECL 84
FI SYSPRINT DUMMY
FI SYSTERM T (CHANGE RECFM VA LRECL 137 LOWCASE
FI SYSIN T (CHANGE RECFM F LRECL 80
FI LOADF DISK &1 LOAD A ( RECFM V LRECL 84
&ERROR &CONTINUE
LINELOAD &RELCON
FI * CLEAR
&EXIT &RETCODE
*
-QUERY &TYPE FILE?