CLI /ELIM=RDCLI
REM ...RDC
.OPEN RDCLI.TK6
.DATA RDCLI/-FP,RDCLI/-SP=RDCLI
.DATA [200,147]VOLVOLIB/LB
.DATA LB:[1,1]FV6OTS/LB
.DATA /
.DATA LIBR=FCSRES:RO
.DATA UNITS=1
.DATA ACTFIL=1
.DATA ASG=TI:1
.DATA TASK=...RDC
.DATA //
.CLOSE
MET RDCLI,RDCLI.MLS/-SP=RDCLI
.IFNINS FOR INS $FOR/INC=50000
FOR RDCLI,RDCLI.FLS/-SP=RDCLI
.IFNINS TKB INS $TKB
TKB @RDCLI.TK6
INS RDCLI/CLI=YES/TASK=...RDC
CLI /INIT=RDCLI/MESSAGE/DPR="<15><12>/>>/"/TASK=...RDC
SET /CLI=TI:RDCLI