IBM Mainframe Forum

Hi,

Would you please give the File-Aid batch job to convert a PD (COMP-3) field to ZD.

TIA.

//JOBNAME JOB ...
//STEPNAME EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=T
//SYSLIST DD SYSOUT=T
//SYSTOTAL DD SYSOUT=T
//DD01 DD DSN=...
//DD01O DD DSN=...
//DD01RF DD DSN=...
//SYSIN DD *
$$DD01 REFORMAT REFOUT=ALL
/*

Hello,

Suggest you provide clarification. . .

The posted "solution" does not show how to convert a packed-decimal number to zoned-decimal.

HI,

I think this can easily done using the IEBGENER utility

//SYSUT1 DD DSN=OLDFILE, etc.
//SYSUT2 DD DSN=NEWFILE,UNIT=DISK,V=S=5,DISP=(NEW,KEEP),
// SPACE=(TRK,(2,1)),DCB=(LRECL=36,BLKSIZE=720,RECFM=FB)
//SYSIN DD *
GENERATE MAXFLDS=4
RECORD FIELD=(9,1,,1)
RECORD FIELD=(20,10,,10)
RECORD FIELD=(4,30,PD,30)
RECORD FIELD=(7,34,ZP,38)
/*

Thanks and regards,
Naveen N

Hello,

I think this can easily done using the IEBGENER utility

The request does not mention iebgener. . .

This could also be done with the sort . . .