Automate Everything: Part 2 Asset ADK

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
+---