Batch aging criteria creation
Data Solutions provides the tools described in this section to facilitate aging criteria creation without using Data Solutions’ online interface. This enables you to employ the output of a variety of analysis tools in creating your aging criteria.
If you can reformat your output to match the common interface format described in step 1 of the following procedure, then you can easily complete steps 2 and 3. Completing this procedure produces formatted aging criteria that you can use to age your files with Data Solutions option 1 Date Aging.
Create aging criteria
Use the following batch procedure to create your aging criteria:
Create a flat file FB (Fixed) LRECL=80 containing the following information on each record for each field you want to age:
Positions
Description
1-30
Field name
32-46
Date pattern
48-52
Field position
54
Data type (B, C, N, P)
56-60
Number of days to age date.
You can use File-AID Formatted Edit with the COBOL record layout in DASAMP.LAYOUTS(TMPLATEF) to create this file.
- For a single record layout file (Record layout usage = S), edit a copy of UDACRITF from your File-AID sample library (SXVJSAMP). For a multiple record layout file (Record layout usage = X), edit a copy of UDACRITX from your sample library. You can create aging criteria for one record layout in the XREF at a time. Make the following changes in the appropriate JCL:
- Add a job card.
Modify STEP001:
STEPLIB
Change the DSN to the name of your File-AID load library.
DD01
Change the DSN to the name of your DASAMP.AGECRIT library.
DD01O
Change the DSN to the name of your AGECRIT library.
SYSIN
Change NEWMEM to the new member name you want to create.
SYSIN
Change #### to the number of fields required which is equivalent to the number of records in your specification file (created in Step 1).
Modify STEP002:
STEPLIB
Change the DSN to the name of your File-AID load library.
DD01
Change the LEVEL-01-NAME to your level 01 name.
For UDACRITX, you must specify the base number of the layout you selected in the XREF. Check your XREF to determine the base number. For example, the fourth layout described in the XREF is base number 4.
DD02
Change the DSN to the name of your specification file (created in Step 1).
SYSIN
Change the DSN to the name of your File-AID sample library (for example, hlq..SXVJSAMP).
Modify STEP003:
STEPLIB
Change the DSN to the name of your File-AID load library.
DD01
Change DSN and MEMBER NAME to the same AGECRIT library and MEMBER NAME as specified in STEP001.
- Submit the job.
Member UDACRITF in your File-AID sample library (for example, hlq.SXVJSAMP) contains the batch interface sample JCL shown in the following figure.
Aging Criteria Batch Interface Sample JCL
//*
//* COPY TEMPLATE TO NEW MEMBER TO BE UPDATED IN STEP003
//*
//STEP001 EXEC PGM=FILEAID,REGION=6M
//STEPLIB DD DISP=SHR,DSN=hlq.CXVJLOAD
// DD DISP=SHR,DSN=hlq.SXVJLOAD
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD DISP=SHR,DSN=????.DASAMP.AGECRIT
//DD01O DD DISP=SHR,DSN=????.AGECRIT
//CTLFILE DD DISP=(NEW,PASS),DSN=&&CTLFILE,UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920),
// SPACE=(TRK,(5,5))
//SYSIN DD *
$$DD01 COPY MEMBER=TMPLATEF,NEWMEM=????????,
RDW=2,STOP=(2,EQ,C’CHG’),STOP=(5,5,C’####’),
IF=(2,EQ,C’CHG’),REPL=(5,C’ ’),
IF=(1,NE,C’/**’),SELECT=1
//* REPL=(2,EQ,C’CHG’,5,C’ ’),
//*
//* DATA SOLUTIONS AGING CRITERIA BATCH INTERFACE
//*
//* CREATE UPDATE CONTROL CARDS FOR STEP003
//*
//STEP002 EXEC PGM=FILEAID,REGION=6M
//STEPLIB DD DISP=SHR,DSN=hlq.CXVJLOAD
// DD DISP=SHR,DSN=hlq.SXVJLOAD
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD *
LEVEL-01-NAME ENTER YOUR LEVEL 01 NAME IN COLS. 1-30
//*
//* CHANGE THE FOLLOWING DSN TO YOUR SPECIFICATION FILE
//* SEE DASAMP.LAYOUTS MEMBER TMPLATEF FOR THE REQUIRED FORMAT
//*
//DD02 DD DISP=SHR,DSN=????.DASAMP.FORMAT.CRITERIA.IN
//CTLFILE DD DISP=(MOD,PASS),DSN=&&CTLFILE
//SYSIN DD DISP=SHR,DSN=hlq.SXVJSAMP(TMPLATEF) //*
//* DATA SOLUTIONS AGING CRITERIA BATCH INTERFACE
//*
//* UPDATE/COMPLETE AGING CRITERIA MEMBER
//*
//STEP003 EXEC PGM=FILEAID,REGION=6M
//STEPLIB DD DISP=SHR,DSN=hlq.CXVJLOAD
// DD DISP=SHR,DSN=hlq.S
XVJLOAD
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD DISP=SHR,DSN=????.AGECRIT(????????)
//SYSIN DD DISP=(OLD,DELETE),DSN=&&CTLFILE
//*
Related topics