Tips, Tricks, and Techniques
Last update: 1 May 2004
Automated Restart With ET Data
GET TRANSACTION DATA
0700 1 #ET-ISN-N10 (N10)
0710 1 REDEFINE #ET-ISN-N10
0720 2 #ET-ISN-A10 (A10)
....
....
0810 GET TRANSACTION DATA #ET-ISN-A10 /* valid ISN = last pgm abended
0820 IF #ET-ISN-A10 = ' ' /* 1st run or last pgm was ok
0830 MOVE 1 TO #START-ISN /* start with ISN 1
0840 ELSE
0850 MOVE #ET-ISN-N10 TO #START-ISN /* start with last updated ISN+1
0860 ADD 1 TO #START-ISN /*
0870 END-IF
0880 *
....
1010 READ1. READ CA-VIEW BY ISN STARTING FROM #START-ISN
1030 MOVE *ISN(READ1.) TO #ET-ISN-N10
....
3730 UPDATE
....
3770 END OF TRANSACTION #ET-ISN-A10
....
3840 END-READ
3850 MOVE ' ' TO #ET-ISN-A10 /* the last ET was OK
3860 END OF TRANSACTION #ET-ISN-A10 /* no restart
Job Control must have a unique ET user-id:
000016 //NATBATCH EXEC NATBATCH,NATPARM=',ETID=ZIID9S16'
000017 //CMSYNIN DD *
000018 ICSYR2K1,BAT022,pw
000019 GLOBALS PS=60 LS=133
000020 F022P01
000021 FIN
Top Page
NATURAL Tips, Tricks, Techniques -- Overview