|
midrange.com
Hi Ho.
We got 12 inches of snow on Wednesday. It's -30 with the wind chill
today. I wish my ancestors would have taken the boat going south and not the
one going north.
The trick to submit automated programs.
1. Submit INV105D with no parms (this bugger runs forever)
2. Submit program to be automated (INV903, ACP900, ACR900, INV920......)
3. WRKSBMJOB (from a command line)
4. Find job you want to automate (It should be in JOBQ)
5. Put a 5 beside job and press enter
6. Select option 10 Display job log
7. Print Screen (there may be two)- example: INV903
8. End the INV105D job
9. Create a CL
10. STRPDM (from a command line)
11. Option 3
File . . . . . . . . . . QCLSRC Name, F4 for list
Library . . . . . . . . "where QCLSRC lives" *LIBL, *CURLIB, name
Member:
Name . . . . . . . . . *ALL *ALL, name, *generic*
Type . . . . . . . . . *ALL *ALL, type, *generic*, *BLANK
----------------------------------------------------------------------------
--------------------------------
12. What the CL should look like (this is for the INV903 only)
guess what! You will have to create the others (I'll help if you
have problems)
0011.00 PGM
0012.00
0013.00 DCL VAR(&REPLY1) TYPE(*CHAR) LEN(10)
0014.00
0015.00
0016.00 /* Call Program with Specific Parms
*/
0017.00
0018.00 CALL PGM(SYSOVRC) PARM('INV901C' +
0019.00 X'000F40404040404040404040404040404040404+
0020.00 04040404040404040404040404040404040+
0021.00 404040404040404040404040404040404040404+
0022.00 04040404040404040404040404040404040+
0023.00 404040404040404040404040404040404040404+
0024.00 04040404040404040404040404040404040+
0025.00 404040404040404040404040404040404040404+
0026.00 04040404040404040404040404040404040+
0027.00 404040404040404040404040404040404040404+
0028.00 04040404040404040404040404040404040+
0029.00 404040404040404040404040404040404040404+
0030.00 04040404040404040404040404040404040+
0031.00 404040404040404040404040404040404040404+
0032.00 040404040404040404040404040+
0033.00 E7' X'F0C4D2E3F0F1+
0034.00 4040404040+
0035.00 020000127FF1F1F1404+
0036.00 04040404040404040404040404040404040+
0037.00 404040404040404040404040404040404040404+
0038.00 04040404040404040404040404040404040+
0039.00 404040404040404040404040404040404040404+
0040.00 04040404040404040404040404040404040+
0041.00 404040404040404040404040404040404040404+
0042.00 04040404040404040404040404040404040+
0043.00 404040404040404040404040404040404040404+
0044.00 04040404040404040404040404040404040+
0045.00 404040404040404040404040404040404040404+
0046.00 04040404040404040404040404040404040+
0047.00 404040404040404040404040404040404040404+
0048.00 0404040404040404040404040E7')
0049.00
0050.00 MONMSG MSGID(CPF0001) EXEC(GOTO CMDLBL(M1))
0051.00
0052.00
0053.00
0054.00
0055.00
0056.00 GOTO CMDLBL(E1)
0057.00
0058.00 M1: SNDUSRMSG MSG('Month End "INV901C" Did no Complete +
0059.00 Normally........ENTER "N" to Abort.') +
0060.00 VALUES(N) DFT(N) TOUSR(QSYSOPR) +
0061.00 MSGRPY(&REPLY1)
0062.00 IF COND(&REPLY1 *EQ 'N') THEN(GOTO CMDLBL(E1))
0063.00
0064.00 E1: ENDPGM
Line 35 is the important line folks.
0035.00 020000127FF1F1F1404+
0 = not important
2000 = Year
01 = Month
27 = Day
FF1 = Print Cycle Counts not posted
F1 = Continue with month End
F1 = Purge ITH records
If you change the 1 to 0 you are answering NO (re: FF1 = Don't print cycle
counts)
Make 12 copies, one for each month (don't forget to change the dates).
Part 2 is the tricky one. You can't run the CL's without Part 2.
Marc Lacelle
Royal Canadian Mint
+---
| This is the BPCS Users Mailing List!
| To submit a new message, send your mail to BPCS-L@midrange.com.
| To subscribe to this list send email to BPCS-L-SUB@midrange.com.
| To unsubscribe from this list send email to BPCS-L-UNSUB@midrange.com.
| Questions should be directed to the list owner: dasmussen@aol.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
