IBM Mainframe Forum

I have a request to built, from 2 files a new file using DFSORT or ICETOOL.
All files have record length 80 and FB format.

Thanks for your help.

Her are the files contains.

Input File1:
Select From tab1
Where pers = (
)
AND .....

Input File2:
124563
235412
125483

Ouput File3:
Select From tab1
Where pers = (
124563,
235412,
125483,
)
AND .....

Your Output File3 should give you a SYNTAX ERROR if you ever tried to execute it...

Step 0: do not forget to use the CODE tags when posting any code samples

Step 1: assign a "category number" to each group of lines in each dataset

Input File1:

Input File2:


Step2: MERGE (or reSORT) the concatenated dataset by this assigned group ID, with parameter EQUALS, and cut off the extra added field
Ouput File3:


Both SORT steps can be combined into a single JCL step by using ICETOOL/SYNCTOOL

Hi sergeyken,
Thanks for your replay. I did with SORT but I've to find away to add the coma instead of the last record.

//STEP1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=Input.File1
// DD DISP=SHR,DSN=Input.File2
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(1,1,CH,GE,C'0'),
OVERLAY=(81:C'00000002'))
SORT FIELDS=(81,8,CH,A),EQUALS
OUTREC BUILD=(1,80)
/*

The result is what am looking for but need the coma.

Select From tab1
Where pers = (
124563
235412
125483
)
AND .....

The way you have used is working correctly only for extremely limited statements to be combined. In those restricted situations is makes no sense to automate anything - just create a constant dataset.

Or, you can keep the first part with
"WHERE XXXXX IN ("
in one dataset, while the last part with
") ......"
- in a different one. Then just concatenate all three of them.

* * * * * * *

The most trivial method to avoid the "ending comma" problem is, to append a non-existing value at the end of the list.

BTW: equal sign doesn't work for list evaluation; operation IN is needed in that case.



This works OK without sophisticated checking for the last line of values.

The most simple and correct method of doing this should be as follows.