SORT – CONVERT PD to ZD IN DISPLAYABLE FORMAT (ZDF)

In most of the scenarios, your input file has data either in Packed decimal (COMP-3) format which is not in readable format. To change this to readable format, you need to convert these numbers into ZONED Decimal (ZD) format. This can be accomplished using SORT.

PD to ZD

Suppose your input file has first 4 bytes in packed format and you want it in displayable format

          OUTREC FIELDS=(1,4,PD,TO=ZD,LENGTH=6)

p,m,PD,TO=ZD converts the PD values to ZD values. By default, a 4-byte BI value produces a 7-byte ZD value, but LENGTH=6 override the default length to produce a 6-byte ZD value.

OUTREC FIELDS=(1,4,PD,TO=ZD)

This does not override the length of output ZD value produced.

But the above SORT card would have an Alphabet instead of number as the last byte in the new ZD value. Use the below SORT card with ZDF option, to have the new ZD value as all numeric.

OUTREC FIELDS=(1,4,PD,ZDF)

——————————————————————————————————–

In United States, If you would like to Earn Free Stocks, Credit card Points and Bank account Bonuses, Please visit My Finance Blog

——————————————————————————————————–

You may also like to look at:

Working on Mainframes – Is Change to a different technology necessary

Important SQL CODES and ABEND CODES

SORT JOIN – TO JOIN TWO FILES BASED ON A KEY

KNOW YOUR MAINFRAME

REXX – INITIAL SETUP

SAS – SAMPLE PROGRAM

SORT – CONVERT PD to ZD IN DISPLAYABLE FORMAT (ZDF)

SORT – Alphanumeric Tests for INCLUDE and OMIT

SORT – EQUALS Option

SORT – PARSE – REFORMAT VARIABLE FIELDS

SORT – FINDREP, IFTHEN and INREC

SORT – JUSTIFY, SQUEEZE and OVERLAY

SORT – LOOKUP AND CHANGE

SORT – CONVERT PD to ZD and BI to ZD

SORT – OUTREC – TRAN

SORT – OUTREC – INSERT ZEROES, BLANKS, STRINGS

SORT – OUTPUT DATASET DCB (LRECL,RECFM,BLKSIZE)

SORT – INCLUDE and OMIT

SORT – Process Order of CONTROL Statements

SORT – How to use VB dataset (VLSHRT)

SORT – EDIT MASK PATTERNS

SORT – EDIT NUMERIC FIELDS (I,T,S)

SORT – EDIT FIRST AND LAST RECORD

SORT – SYMBOLS

SORT – TO REPLACE A CHAR WITH ANOTHER CHAR – ALTSEQ

SORT – SET RETURN CODE ‘04’ IF OUTPUT FILE IS EMPTY

SORT – INREC, INCLUDE and OMIT

SORT – SKIPREC and STOPAFT

SORT – INREC

SORT – SUM FIELDS

SORT – REMOVE DUPLICATES AND WRITE THEM TO XSUM

DFSORT – Informational and Error Messages

SORT JOIN – UNPAIRED RECORDS INDICATOR

SORT JOIN – TO JOIN TWO FILES BASED ON A KEY

SORT JOB – SIMPLE COPY

SORT TIPS