Change a nightly backup CL program
Posted on 2015-01-16
OK it has been years since I've touched our AS400 (it is now decommissioned), but after the holidays I thought I'd try to finally change the nightly backup job. It currently kicks out the tape at the end, and if I forget to put a new one in it fails the next night. So here was my steps taken.
First do a WRKJOBSCDE to find the job. Got it.
The job executes this CALL PGM(QGPL/NIGHTLY)
Fired up STRPDM. And looked at the object QGPL/NIGHTLY. Found it used QCLSRC\ARISRC as the source file, NIGHTLY as the member.
Looked at the member object and found the issue on line 21. ENDOPT was set to *UNMOUNT. So I changed it to *REWIND ENDOPT(*REWIND)
Put the tape back in and I'll be darned if the next day it was out again. I realized I forgot to compile it. So i went back to the member took option 14 to compile. Got a successful message. Then I came in this morning and it was out again.
Since this is all more than a little rusty, what could I be missing? The only lines after the rewind are some strsbs commands. and there are no other calls in the program. What is really weird is even after a compile and change when I look at the program again in QGPL\NIGHTLY it shows a source file last changed date in 2004.