&TRACE
&ERROR &GOTO -ERR
CP SPOOL CON *
COPY IBMJOB HEADER A TAPEJOB JOB E (REPLACE RECFM V LRECL 84
&LABNO = &1 - 1
STACKF IBM&2 TRIPOS
-TOPLP
  &LABNO = &LABNO + 1
  &READ ARGS
  &IF &1 = * &GOTO -ENDJOB
  &TYPE COPYING &1 &2 &3 TO FILE &LABNO
  COPY TOFILE IBMJOB A TAPEJOB JOB E (APPEND
&STACK LIFO FILE
&X = &STRING OF //    LABEL=(
&X = &CONCAT OF &X &LABNO ,NL,,OUT)
&STACK LIFO I &X
&STACK LIFO DEL 5
CP SPOOL CON START NOTERM
X T T E
CP SPOOL CON STOP TERM
COPY T T E TAPEJOB JOB E (APPEND
COPY FROMFILE IBMJOB A TAPEJOB JOB E (APPEND
&MYFM = &3
&IF &5 ~= 800 &IF &5 ~= 1024 &GOTO -NPCK
&MYFM = E
&BEGTYPE
  ... UNPACKING
&END
COPY &1 &2 &3 = = E(UNPACK REPLACE
-NPCK
COPY &1 &2 &MYFM TAPEJOB JOB E(APPEND
COPY ENDFILE IBMJOB A TAPEJOB JOB E(APPEND
 &GOTO -TOPLP
*
*
-ENDJOB
COPY ENDJOB IBMJOB A TAPEJOB JOB E (APPEND
-ERR
CP SPOOL CON CLOSE STOP
CONWAIT
DESBUF