bhieb
asked on
Change a nightly backup CL program
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.
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.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Wait maybe I'm missing something here. This is the compile screen.
Should the Program library actually be QGPL since that is what it being called?
Program . . . . . . . . . . . . > NIGHTLY
Library . . . . . . . . . . . > ARISRC
Source file . . . . . . . . . . > QCLSRC
Library . . . . . . . . . . . > ARISRC
Source member . . . . . . . . . > NIGHTLY
Text 'description' . . . . . . . *SRCMBRTXT
Additional Parameters
Replace program . . . . . . . . > *NO
Should the Program library actually be QGPL since that is what it being called?
> option on F4 to replace program
That might be it. Specify *YES
> Should the Program library actually be QGPL since that is what it being called?
Yes
HTH,
DaveSlash
That might be it. Specify *YES
> Should the Program library actually be QGPL since that is what it being called?
Yes
HTH,
DaveSlash
ASKER
Yep that was it, now the called object has the correct changed date. Thanks for being the sounding board, been too long since I've done this stuff.
ASKER