Inserting a Delimiter

[sasirekha V]

Hi All,

I need to insert a delimiter(|) between two columns, when a file is generated after successful JCL submission.

Eg. File1:

EMP# EMPNAME EMPEXPER
111 AAAA 1
1112 BC 10
12 DBAC 2

This should be converted into

EMP#|EMPNAME|EMPEXP
111|AAAA|1
1112|BC|10
12|DBAC|2

What are the steps to be included in a JCL for this conversion?

Thanks In advance,
Rekha.

[kapil agarwal]

Hi

I think you can acheive this by writing a simple cobol program and this is not possible to do by jcl.

[Frank Yaeger]

Rekha,

You can use a DFSORT job like the following to do what you asked for.

Code: Select all

//S1    EXEC  PGM=SORT
//SYSOUT    DD  SYSOUT=*
//SORTIN DD *
EMP#          EMPNAME      EMPEXPER
111           AAAA         1
1112          BC           10
12            DBAC         2
/*
//SORTOUT DD SYSOUT=*
//SYSIN    DD    *
  OPTION COPY
  INREC BUILD=(1,80,SQZ=(SHIFT=LEFT,MID=C'|'))
/*

[Frank Yaeger]

I think you can acheive this by writing a simple cobol program and this is not possible to do by jcl.

Kapil,

You're obviously not aware of the capabilities of DFSORT. I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:

www.ibm.com/servers/storage/support/sof ... tmpub.html

[Anuj Dhawan]

Hi Frank.

What does this

Code: Select all

MID=C'|'))

convey to DFSort in above JCL? Please assist.

[Frank Yaeger]

MID=C'|' tells DFSORT to insert a '|' character between the fields.

Paraphrasing from the "z/OS DFSORT Application Programming Guide" description of p,m,squeeze:

MID=string

specifies a string to be inserted in the output field wherever one or more blanks is removed between the first nonblank and the last nonblank. string can be 1 to 10 characters specified using a character string constant (C'xx...x') or a hexadecimal string constant (X'yy...yy'). For example, let's say we have an input field of:

Code: Select all

 AB  C   D E

If we specify:

Code: Select all

1,12,SQZ=(SHIFT=LEFT,MID=C',')

the output field is:

Code: Select all

AB,C,D,E

...

You can access all of the DFSORT books online from:

www.ibm.com/systems/support/storage/sof ... tmpub.html

[sasirekha V]

Thank you.

[Frank Yaeger]

Is it possible to compare both files?

Compare them and do what?

Show a more complete example of the records in each input file and what you expect for output. Explain the "rules" for comparing the files. Are you looking for a match between all three fields in any record of file1 and file2, or what?

[Anuj Dhawan]

Thankyou Frank for such an explanation - You are a good Teacher as well . . . .

Just out of curiosity: MID is an abbreviation for "middle"?

[sasirekha V]

File1 is captured from the SPOOL output which will have space between entire column.
For EG. Customer ID is 10 digit number. But i can have Customer ID as 555 hence while displaying in the SPOOL, it leaves 7 more spaces and then value for the next column begins.
(precisely, it looks like output of a query which is run in SPUFI and which is viewed in the output PS.)

FIle 2 is a production file which has continuous column values. Eventhough customer ID is 10 in length, if the ID is 555 then no space is allocated. ID is immediately proceeded by the next value.

I need to compare these two files and get the unique records of File 1 in 1 file and unique records in File 2 in another File.

Hope i have given detailed explanation.

[Frank Yaeger]

Anuj,

Yes, MID is an abbreviation for MIDDLE.

sasirekha V,

Again:

Show a more complete example of the records in each input file and what you expect for output.

[sasirekha V]

File 1:(has space between columns)

<first some 10 lines about execution of a query NOT REQUIIERD>
EMP# |EMPNAME |EMPEXP
111 |AAAA |1
1112 |BC |10

File 2:(No space between columns)

<Header-List of coulmn names EMP#|EMPNAME|EMPEXPR>
111|AAAA|1
1112|BC|12
12|DBAC|2

Com File 1: Unique records in File1 (No space between columns)
1112|BC|10

Com File 2: Unique records in File2 (No space between columns)
1112|BC|12
12|DBAC|2

[Frank Yaeger]

What is the RECFM and LRECL of File1 and File2?

What is the RECFM and LRECL of Com File1 and Com File2?

What is the maximum length of the records to be compared, that is, how big can

field1|field2|field3

be?

It looks like there are 11 lines that can be ignored before the data starts in file1 - right?

How many lines can be ignored before the data starts in file2? That is, now many lines are represented by

<Header-List of coulmn names EMP#|EMPNAME|EMPEXPR>

[sasirekha V]

File1 and File2:
RECFM:VB
LRECL :23036


CompFile1 and compFile2:
RECFM:VB
LRECL :23036

maximum length ~200

Field 1,Field 2 <=50

Only File 1 has some 10-12 lines to be deleted.
File 2 has only 1 header mentioned which need not be deleted.

[Frank Yaeger]

Here's a DFSORT/ICETOOL job that will do what I think you asked for.

Code: Select all

//S1   EXEC  PGM=ICETOOL
//TOOLMSG   DD  SYSOUT=*
//DFSMSG    DD  SYSOUT=*
//IN1 DD DSN=... input file1
//IN2 DD DSN=... input file2
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(MOD,PASS)
//OUT1 DD LRECL=23036,DSN=...  output file1
//OUT2 DD LRECL=23036,DSN=...  output file2
//TOOLIN DD *
COPY FROM(IN1) TO(T1) USING(CTL1)
COPY FROM(IN2) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT1) ON(7,200,CH) KEEPNODUPS -
  WITH(5,1) USING(CTL3)
/*
//CTL1CNTL DD *
  OPTION SKIPREC=11
  INREC IFTHEN=(WHEN=INIT,
      BUILD=(1,4,5:C'BB',7:5,200,SQZ=(SHIFT=LEFT)))
/*
//CTL2CNTL DD *
  OPTION SKIPREC=1
  INREC IFTHEN=(WHEN=INIT,BUILD=(1,4,5:C'VV',7:5,200))
/*
//CTL3CNTL DD *
  OUTFIL FNAMES=OUT1,INCLUDE=(5,2,CH,EQ,C'BB'),
    BUILD=(1,4,5:7),VLTRIM=C' '
  OUTFIL FNAMES=OUT2,INCLUDE=(5,2,CH,EQ,C'VV'),
    BUILD=(1,4,5:7),VLTRIM=C' '
/*