Example: This record needed to be modified to change the sequence of some of the fields. Also, the new record had to be 10 bytes longer than the original. This was accomplished by using the COPY function in File-AID.

//REFORMAT JOB REST OF CARD 
//STEP1 EXEC PGM=FILEAID  
//STEPLIB DD DSN=STEPLIB
//SYSPRINT DD SYSOUT=* 
//DD01 DD DSN=INPUTFILE,DISP=SHR 
//DD01O DD DSN=OUTPUTFILE,
//            DISP=(NEW,CATLG,DELETE),                 
//            UNIT=SYSDA,                             
//            SPACE=(CYL,(X,Y),RLSE),                 
//            DCB=(RECFM=FB,LRECL=ZZZ,BLKSIZE=0)
//SYSIN DD * $$DD01 COPY MOVE=(1,20,1),
                         MOVE=(21,30,45), 
                         MOVE=(51,25,21),
                         MOVE=(76,10C’ ‘) 
/*  

The MOVE parameter is used to indicate the required changes.

• First MOVE keeps the first 20 bytes in place.
• Second MOVE takes 30 bytes from position 45 and places them after the first 20.
• Third MOVE takes 25 bytes starting at 21 and places them next.
• Final MOVE appends 10 blanks to the end, lengthening the record.

This is a classic pattern for restructuring flat records during a migration.

 

Example: We have a requirement to mass update all the production PROCS to change UNIT to SYSDA instead of DISK, TESTDA, 3350, and SPACE to CYL instead of TRK.

//PDSUPDT JOB REST OF CARD
//STEP1 EXEC PGM=FILEAID
//STEPLIB DD DSN=STEPLIB
//SYSPRINT DD SYSOUT=* 
//DD01 DD DSN=OLDLIB,DISP=SHR 
//DD01O DD DSN=NEWLIB,DISP=OLD 
//SYSIN DD * 
  $$DD01 COPYALL FORM=JCL,     
  EDIT=(3,0,C’UNIT=DISK,UNIT=TESTDA,UNIT=3350’,
        C’UNIT=SYSDA’),   
  REPL=(3,0,C’SPACE=(TRK’,C’SPACE=(CYL’) 
/* 

File-AID treats JCL as logical records so that all conditions could be looked for at once and it also processes through an entire PDS. A copy is made of the original PDS and changes are made as the records are copied. DD01 indicates the input file and DD01O is the output file. FORM=JCL tells File-AID/MVS to look for logical continuations. EDIT looks for three (3) possible UNIT values and changes them all to SYSDA. REPL searches for a SPACE value of TRK and changes it to CYL.

 

Example: A developer wants to change a text to another text. It doesn’t matter which position the text begins and after the change data is shifted left or right depending on whether the change has made the record longer or shorter. If the record has been made longer the rightmost positions are lost, because File-Aid/Batch always maintains the original record length. If the record was shortened, blanks are appended to the record.

//MYCHANGE EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//SYSLIST  DD SYSOUT=*
//DD01     DD DISP=SHR,DSN=MY.FLAT.DATASET
//DD02     DD DISP=SHR,DSN=MY.MEMBER.DATASET
//SYSIN    DD *
$$DD01 UPDATE EDIT=(1,0,C"TIME=1440",C"TIME=30")
$$DD02 UPDATE MEMBER=UPDTMBR,
       EDIT=(1,0,C"TIME=1440",C"TIME=30")
/* 

The first line in SYSIN processes the dataset referred to by DD card DD01. The UPDATE parameter tells FILEAID that the dataset must be updated and the parameter EDIT= tells FILEAID how to change the dataset. In this case, the first text will be substituted by the second text. The second line in SYSIN processes not surprisingly the dataset referred to by DD card DD02, but the processing is limited to the member named UPDTMBR. The rest is exactly the same and works accordingly.

 

Example: All SORTWORK DD’s had to change from CYL to TRK. The parameter UNIT=TAPE had to be UNIT=(TAPE,,DEFER). Also, the SYSOUT parameter had to change from ‘A’ to ‘*’.

 //REPLACE JOB REST OF CARD 
 //STEP1 EXEC PGM=FILEAID  
 //STEPLIB DD DSN=STEPLIB 
 //SYSPRINT DD SYSOUT=* 
 //SYSLIST DD SYSOUT=* 
 //DD01 DD DSN=JCL.LIB,DISP=OLD 
 //SYSIN DD * 
 $$DD01 UPDATEALL FORM=JCL, 
        EDIT=(3,0,C’UNIT=TAPE’, C’UNIT=(TAPE,,DEFER)’), 
        IF=(1,EQ,C’//SORTWK’),IF=(10,0,C’CYL’), 
            REPL=(+0,C’TRK’),  
        IF=(3,30,C’SYSOUT=A’),REPL=(+7,Cí*í)í, LIST=0 
 /*  

By using the function UPDATEALL, each record in the PDS was checked against each possible change. First, the UNIT parameter was checked (EDIT was used because the length of the data was changing). Next, the record was examined for the SORTWORK DD name and the CYL value. Two IF parameters indicate an AND condition to File-AID/MVS Batch. The REPL parameter processes a character-for-character overlay (so it was used when the data length was the same). With a relative position of the current location in the record (+0), CYL was changed to TRK. Using the same process, SYSOUT was changed from ‘A’ to ‘*’. All of the changed records were printed with the LIST parameter. The output from the LIST parameter is written as the SYSTOTAL DD. If the SYSLIST DD is not found or not coded, the LIST output is written to the end of the SYSPRINT DD. This same change logic could be used with a COPY function to modify records as they are copied to a new file.

• Searches for UNIT=TAPE and changes to UNIT=(TAPE,,DEFER).
• Finds SORTWK DDs using CYL and changes CYL to TRK.
• Changes SYSOUT=A to SYSOUT=* across the PDS automatically.

 

FILEAID Reference Manual: ClickHere