Tags

, , , ,

SORT – JUSTIFY, SQUEEZE and OVERLAY


  1. JUSTIFY

    Using SORT, you can justify your input records.

Suppose you have your input file as below:

(RAJESH/

RAMS/

SUNIL/

SURESH)

And you want your output file in this format

<RAJESH>

<RAMS>

<SUNIL>

<SURESH>

Your SORT card would look like below:

OPTION COPY

OUTREC FIELDS=(1,20,JFY=(SHIFT=LEFT,PREBLANK=C'()/’,

LEAD=C'<‘,TRAIL=C’>’))

JFY is used to justify the input record
SHIFT=LEFT tells that records needs to be shifted to left (SHIFT=RIGHT for right shift)
PREBLANK=C'()/’ tells that the characters ‘(‘, ‘)’ and ‘/’ need to be replaced by blank.
LEAD=C'<‘ tells that all records should be appended with ‘<‘ at start
TRAIL=C’>’ tells that all records should be appended with ‘>’ at end
  1. SQUEEZE

    Using SORT, you can SQUEEZE your input records. That is you can remove unwanted spaces in between in a record.

Suppose you have your input file as below:

A (RAJESH/ A

B RAMS/ B

C SUNIL/ C

D SURESH) D

“E CHIRU ” E

And you want your output file in this format

{A.RAJESH.A}

{B.RAMS.B}

{C.SUNIL.C}

{D.SURESH.D}

Your SORT card would look like below:

OPTION COPY

OUTREC FIELDS=(1,20,SQZ=(SHIFT=LEFT,PREBLANK=C'()/’,MID=C’.’,

LEAD=C'{‘,TRAIL=C’}’))

SQZ is used to squeeze the input record
SHIFT=LEFT tells that records needs to be shifted to left (SHIFT=RIGHT for right shift)
PREBLANK=C'()/’ tells that the characters ‘(‘, ‘)’ and ‘/’ need to be replaced by blank.
LEAD=C'<‘ tells that all records should be appended with ‘<‘ at start
TRAIL=C’>’ tells that all records should be appended with ‘>’ at end
MID=C’.’ MID=string specifies the string to replace removed blanks
PAIR=QUOTE “ignore” blanks and PREBLANK characters between pairs of quotes
PAIR=APOST “ignore” blanks and PREBLANK characters between pairs of apostrophes
  1. OVERLAY

    The OVERLAY parameter of the OUTREC statement can be used if you only want to change one or a few items and keep the rest of the record in its original form

    Suppose you want to change the data present in bytes 6 to 10 to upper case and leave the other part of the data as it is, you can use below OVERLAY.

    OPTION COPY

    OUTREC OVERLAY=(6:6,5,TRAN=LTOU)


This will copy the data from bytes 1 to 5 as it is into the output file and convert the chars present in bytes 6 – 10 into upper case.

 

You might also like to look at:

 

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
Advertisements