REM BAT...
.ENABLE SUBSTITUTION
.SETS UIC <UIC>
PIP BATCH.TSK;*/DE
MAC BATCH=LB:[1,1]EXEMC/ML,SY:'UIC'BATCH
.OPEN BATCHTKB.CMD
.DATA BATCH/PR:0/CP/SL=BATCH
.DATA /
.DATA ASG =SY:1
.DATA TASK=BAT...
.DATA PRI=65
.CLOSE
TKB @BATCHTKB
PIP BATCH.OBJ;*/DE,BATCHTKB.CMD;*
INS BATCH
TCF 7,7,7
TCF 7