PART-1: How to Work With Delimiter in COBOL

PIPE delimited file we can achieve through MVS record structure, See, the example below

01 INPUT_REC1
05 FIRST-ONE         PIC X(2)
05 SECOND-ONE        PIC X(2) VALUE "||"
.
.
.

The above way, we can construct a record. Similarly we can use UNSTRING in COBOL to delimit the PIPE symbol, and we will get sequential data set.

PART-2: How to Work With Delimiter in JCL

The second best example is we frequently use PIPE concept with SPLIT in DFSORT

//EXAMP JOB A400,PROGRAMMER
//RUNSORT EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=H
//SORTIN DD DSN=INPUT.PIPE,SUBSYS=PIPE,
//          DCB=(LRECL=60,RECFM=FB,BLKSIZE=32760)
//OUT1   DD DSN=OUTPUT.PIPE1,SUBSYS=PIPE,
//          DCB=(LRECL=60,RECFM=FB,BLKSIZE=32760)
//OUT2   DD DSN=OUTPUT.PIPE2,SUBSYS=PIPE,
//          DCB=(LRECL=60,RECFM=FB,BLKSIZE=32760)
//SYSIN  DD *
  OPTION DYNALLOC,FILSZ=U1000000
  SORT FIELDS=(1,20,CH,A,25,4,BI,A)
  OUTFIL FNAMES=(OUT1,OUT2),SPLIT
/*

Here, SUBSYS=PIPE, will allocates input file into PIPE system.
OUTFIL FNAMES=(OUT1,OUT2),SPLIT ==> This command writes input file into two output files.

PART-3: How to Work With Delimiter in UNIX

 The PIPE symbol will be used in UNIX, to separate each command in UNIX. Let us execute the batch job using BPXBTACH utility.

//STEPN  EXEC  PGM=BPXBTACH,PARM = ‘SH ls –a | tail +3 | nl'
//SYSOUT DD SYSOUT=*

Here, in the list of records, it filters the top three records and shows line numbers.

Related Posts