.;
.; LB:[1,2]TIME.CMD F\R ANV[NDNING P] RSX11M+ (EJ VT:-BATCH)
.;
.DISABLE SUBSTITUTION
.ENABLE QUIET
.DISABLE DISPLAY
PIP LB:[1,2]GETIME.CMD;*/DE/NM
.OPEN LB:[1,2]GETIME.CMD
.DATA .ENABLE SUBSTITUTION
.DATA .OPEN LB:[1,2]TIME.BAT
.DATA .DATA TIM '<DATE>' '<TIME>'
.DATA .CLOSE
.ENABLE SUBSTITUTION
.DATA NFT '<NETNOD>'::LB:[1,2]=LB:[1,2]TIME.BAT/SB
.DATA PIP LB:[1,2]TIME.BAT;*/DE/LD
.CLOSE
.;
.;
.SETT $TIME
NFT HUGO::LB:[1,2]=LB:[1,2]GETIME.CMD/SB 
.IF <EXSTAT> EQ 1 .EXIT 1
NFT HUGO::LB:[1,2]GETIME.CMD;*/DE
NFT RAKEL::LB:[1,2]=LB:[1,2]GETIME.CMD/SB 
.IF <EXSTAT> EQ 1 .EXIT 1
NFT RAKEL::LB:[1,2]GETIME.CMD;*/DE
NFT MALIN::LB:[1,2]=LB:[1,2]GETIME.CMD/SB 
.IF <EXSTAT> EQ 1 .EXIT 1
NFT MALIN::LB:[1,2]GETIME.CMD;*/DE
.;
.SETF $TIME
.EXIT '<EXSTAT>'