IF #SEC=3
#BAS1:='STAND' #BAS2:='IRSALIYE' #ISTEK:='TESLIM'
MOVE 'S' TO #SWITCH MOVE'IST' TO #IST
MOVE (AD=P)TO #IST-CV #SWITCH-CV
ELSE IF #SEC=4 MOVE 'O' TO #SWITCH COMPUTE #ISTEK='TESLIM'
IF *GROUP NE 'TARSO' AND *GROUP NE 'GT01' AND *GROUP NE'GZTPLNGR'
AND *GROUP NE 'GZTANLGR'
MOVE #ISTASYON TO #IST MOVE(AD=P) TO #IST-CV
END-IF
END-IF
END-IF
.
The output file follows:
