|
Hi Ho I hope you have ASSET/ADK. from a command line type: ADK 1. Enter Batch Programs 3 1. Display Programs - Generating On-Line Applications 2. Report Programs - Generating Decision Support Applications 3. Batch Programs - Generating File Keeping Applications 4. Repositories - Gathering / Storing Information 5. Product Security - Security and System Environment Functions Author ID . . . . . . . . YOUR NAME Application set name . . YOUR NAME Language Identifier . . . 2. Create a batch program 3. Go to option number 5 / Actions 4. Create program 1.00 ; Month Job Submission 2.00 ; 3.00 ; 4.00 K GETDTAA *LDA 5.00 A OUTQ 'BPCSOUTQ' 6.00 A OUTL 'BPCSXXXUSR' 7.00 A OHLD 'N' 8.00 A WTRN 'PRT01' 9.00 A CPYS '01' 10.00 A FORM '*STD' 11.00 A OUTP '5' 12.00 A LPI '6' 13.00 A CPI '10' 14.00 A OVF '59' 15.00 A LPP '66' 16.00 A SAVE '*NO' 17.00 A WSID 'XXXXXXXX' 18.00 A MSGQ 'SYS500D' 19.00 K UPDDTAA *LDA Line 1: This is to submit Month End INV903. You will need to copy this one to subit other month end jobs. Line 4: You need to create an LDA Line 6: Where your BPCSOUTQ object lives Line 17: A valid workstation number (this workstation must exist. You can find them in your data file library. They are DTAARA that start with a 'Q' 21.00 ; "JANUARY" 22.00 K IF *date = 012700 24.00 C SBMJOB CMD(CALL PGM(*LIBL/????????)) JOB(MONTH_END) LOG(*JOBD 00 *SECLVL) 25.00 K ELSE Line 24: ??????? replace with name of CL you created. This is only for January folks. You will have to repeat these 4 lines 11 times (one for each month). Remember change the dates. 5. Create the LDA If you are still in the Action screen (option 5). Press SHIFT-F12 Create the LDA. Follow the instructions below Data Act Type Name Lngt Type Occr Description 2 *DTA *LDA Input the following variables Field Field Start End Name Typ Length Occurs Pos Pos Description LIBL A 10 74 83 W8OUTQ OUTQ A 10 412 421 W8OUTQ OUTL A 10 422 431 W8OUTL QHLD A 1 432 432 W8QHLD WTRN A 10 433 442 W8WTRN CPYS A 2 443 444 W8CPYS FORM A 10 445 454 W8FORM OUTP A 1 455 455 W8OUTP LPI A 1 458 458 W8LPI CPI A 2 459 460 W8CPI How are we doing so far. Good. We are done It's time to compile. There will be a part 3 to this. This is the easy one. Just procedures to follow +--- | 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.