Merging to members into one

[fuuss]

Hello , I am rather new to this forum and need a little help
I have 2 Files
One member is
fuuss.job.cntl (acces)

Code: Select all

000001 ZABCDEF               
000002 ABCDEFG               
000003 BCDEFGH               
000004 CDEFGHI               
and so on       


second one is
fuuss.job.cntl(usern)

Code: Select all

000001 45551147
000002 12345678
000003 44557884


and I need JCL that merges this 2 Members in a new file (Name doesn't matter)

Code: Select all

000001 CMD="PE ZABCDEF CL(GCICSTRN) ID(45551147) ACCESS(READ)";CALL DOIT
000002 CMD="PE ABCDEFG CL(GCICSTRN) ID(45551147) ACCESS(READ)";CALL DOIT
000003 CMD="PE BCDEFGH CL(GCICSTRN) ID(45551147) ACCESS(READ)";CALL DOIT
000004 CMD="PE CDEFGHI CL(GCICSTRN) ID(45551147) ACCESS(READ)";CALL DOIT
000005 CMD="PE ZABCDEF CL(GCICSTRN) ID(12345678) ACCESS(READ)";CALL DOIT
000006 CMD="PE ABCDEFG CL(GCICSTRN) ID(12345678) ACCESS(READ)";CALL DOIT
000007 CMD="PE BCDEFGH CL(GCICSTRN) ID(12345678) ACCESS(READ)";CALL DOIT
000008 CMD="PE CDEFGHI CL(GCICSTRN) ID(12345678) ACCESS(READ)";CALL DOIT
AND SO ON


the other things are fixed so CMD="PE and so on

can somebody help me

thx in advance

[arunprasad.k]

If the PDS has only 2 members (and the member names keep changing), then use IEBPTPCH to copy the PDS to PS and then use sort products to do whatever formatting you want.

If the PDS has members other than these 2 (and the member names are constant), you can append both the members in SORTIN DD name as below.

Code: Select all

SORTIN  DD  DSN=YOUR.PDS.NAME(MEM1),DISP=SHR
             DD  DSN=YOUR.PDS.NAME(MEM1),DISP=SHR


Also I did not understand how the value '45551147' is getting loaded for records 02 to 04, and '12345678' is loaded for the rest.

Arun.

[dick scherrer]

Hello,

Also I did not understand how the value '45551147' is getting loaded for records 02 to 04, and '12345678' is loaded for the rest.

1 to 4?

I believe the output needs to be a "cartesian product" of the inputs. The sample output posted is only the first 2 "sets".

[fuuss]

Yes Correct the output is only for the 2 first sets

and how about icetool wouldn't that be an option?

(yeah I know in this case wrong topic)

[fuuss]

Ok so again output file would be

Code: Select all

000001 CMD="PE <data1fromacces> CL(GCICSTRN) ID(data1fromusern) ACCESS(READ)";CALL DOIT
000002 CMD="PE <data2fromacces> CL(GCICSTRN) ID(data1fromusern) ACCESS(READ)";CALL DOIT
000003 CMD="PE <data3fromacces> CL(GCICSTRN) ID(data1fromusern) ACCESS(READ)";CALL DOIT
000004 CMD="PE <data4fromacces> CL(GCICSTRN) ID(data1fromusern) ACCESS(READ)";CALL DOIT

000005 CMD="PE <data1fromacces> CL(GCICSTRN) ID(data2fromusern) ACCESS(READ)";CALL DOIT
000006 CMD="PE <data2fromacces> CL(GCICSTRN) ID(data2fromusern) ACCESS(READ)";CALL DOIT
000007 CMD="PE <data3fromacces> CL(GCICSTRN) ID(data2fromusern) ACCESS(READ)";CALL DOIT
000008 CMD="PE <data4fromacces> CL(GCICSTRN) ID(data2fromusern) ACCESS(READ)";CALL DOIT

000009 CMD="PE <data1fromacces> CL(GCICSTRN) ID(data3fromusern) ACCESS(READ)";CALL DOIT
000010 CMD="PE <data2fromacces> CL(GCICSTRN) ID(data3fromusern) ACCESS(READ)";CALL DOIT
000011 CMD="PE <data3fromacces> CL(GCICSTRN) ID(data3fromusern) ACCESS(READ)";CALL DOIT
000012 CMD="PE <data4fromacces> CL(GCICSTRN) ID(data3fromusern) ACCESS(READ)";CALL DOIT

000013 CMD="PE <data1fromacces> CL(GCICSTRN) ID(data4fromusern) ACCESS(READ)";CALL DOIT
000014 CMD="PE <data2fromacces> CL(GCICSTRN) ID(data4fromusern) ACCESS(READ)";CALL DOIT
000015 CMD="PE <data3fromacces> CL(GCICSTRN) ID(data4fromusern) ACCESS(READ)";CALL DOIT
000016 CMD="PE <data4fromacces> CL(GCICSTRN) ID(data4fromusern) ACCESS(READ)";CALL DOIT
......


I hope it's more clear now

thx

[arunprasad.k]

There is some level of programming involved in this. I do not think you could do this with some sort product. May be let's wait for the experts comments.

If i were you i would go with REXX. But this can be done through any application programming.

I assume that the record counts in both the files are not fixed. Do correct me if my assumption is wrong. If the record count in any of the files (say File 2 will have only 4 records) is fixed and a small quantity then this can be done sort products.

Arun.

[arunprasad.k]

How about this REXX!!

Code: Select all

/* rexx */                                                             
"alloc da('fuuss.job.cntl(acces)')  f(file01) shr reuse"               
"alloc da('fuuss.job.cntl(usern)')  f(file02) shr reuse"               
"alloc da('fuuss.job.cntl(outpt)')  f(file03) mod reuse"               
"execio * diskr file01 (stem record1. finis"                           
"execio * diskr file02 (stem record2. finis"                           
num  = 1000000                                                         
var1 = ' CMD="PE '                                                     
var2 = ' CL(GCICSTRN) ID('                                             
var3 = ') ACCESS(READ)";CALL DOIT'                                     
do i = 1 to record2.0                                                   
   id = substr(record2.i,8,8)                                           
   do j = 1 to record1.0                                               
      access  = substr(record1.j,8,7)                                   
      num     = num + 1           /* I dont know how to retain       */
      nums    = substr(num,2,6)   /* preceeding 0 !!                 */
      record3 = nums||var1||access||var2||id||var3                     
      push record3                                                     
      "execio 1 diskw file03"                                           
   end                                                                 
end   


Fuuss, Edit this REXX to have your original file names and save this REXX in the PDS/Sequential dataset with LRECL=80 and give 'EX' (in the place where you give 'B' to browse the dataset) to run the REXX.

Post if you have any questions.

Arun.

[fuuss]

Wow thank you for the quick help

maybe Rex is really an good option I will try it



thank you very much for your help


Fuuss

Ps I let you know if i got it wo work

[fuuss]

Ok perfekt I changed a bit but now working perfekt

Just one question , may you explain me the alloc thing , the rest is clear but that one ( as I am as new to Rexx that Jcl) I always want to know and not
just copy the code .

Thx again I would pay you a drink if you were here

[arunprasad.k]

You are welcome. I am also delighted to help you!!

REXX Reference:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4A330/CCONTENTS?DT=20020521161835

REXX Programming Guide:

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4B610/CCONTENTS?DT=20020521163836

Arun.