Reformat dynamic rows to columns

[Aech]

Hi,

I have data which looks like below

Code: Select all

Job1    Description1    Monday
Job2    Description2    Friday
Job3    Description3    Monday
                        Thursday
Job4    Description4    Monday
Job4    Description4    Tuesday
                        Wednesday
                        Thursday
                        Friday
Job5    Description5    Sunday

I want write out an report in a single row like below

Code: Select all

Job1    Description1    Monday
Job2    Description2    Friday
Job3    Description3    Monday  Thursday
Job4    Description4    Monday  Tuesday   Wednesday   Thursday    Friday
Job5    Description5    Sunday
 

But I am not sure which option to use for this, could someone please help.

[prino]

Code: Select all

//REFORM EXEC PGM=THEFORCE,PARM='JEDI'

[enrico-sorichetti]

Programming Announcement

New Operating System (5781-WOW)

Due to the fact that so many users have asked for an operating system of
even greater capability than zVM, and zOS BM announces the Virtual Universe Operating System - zOS/VU.

Running under zOS/VU, the individual user appears to have not merely
a machine of his own, but an entire universe of his own,
in which he can set up and take down his own programs,
data sets, system networks, personnel, and planetary systems.

He need only specify the universe he desires,
and the zOS/VU system generation program (IEHGOD) does the rest.
This program will reside in SYS1.GODLIB.

The minimum time for this function is 6 days of activity and 1 day of rest and review.
In conjunction with zOS/VU, all system utilities have been replaced by one program (IEHPROPHET)
which will reside in SYS1.MESSIAH.
This program has no parms or control cards as it knows what you want to do when it is executed.

Naturally, the user must have attained a certain degree of sophistication in the
data processing field if an efficient utilization of zOS/VU is to be achieved.

Frequent calls to non-resident galaxies, for instance,
can lead to unexpected delays in the execution of a job.

Although IBM, through its wholly-owned subsidiary, The United States,
is working on a program to upgrade the speed of light and thus reduce
the overhead of extraterrestrial and metadimensional paging,
users must be careful for the present to stay within the laws of physics.
IBM must charge an additional fee for violations.

zOS/VU will run on any IBM x0xx equipped with Extended WARP Feature.

Users should be aware that IBM plans to migrate all existing systems and hardware to zOS/VU
as soon as our engineers effect one output that is (conceptually) error-free.

This will give us a base to develop an even more powerful operation system,
target date 2051, designated " Virtual Reality".
zOS/VR is planned to enable the user to migrate to totally unreal universes.
To aid the user in identifying the difference between "Virtual Reality" and "Real Reality",
a file containing a linear arrangement of multisensory total records
of successive moments of now will be established. It's name will be SYS1.est.

For more information, contact your IBM Data Processing Representative.

[willy jensen]

What really is said above is that this cannot be solved by JCL, certainly not by a JCL option, you need to use / write a program. Personally I am not aware of any standard programs capable of doing this, but I'm sure someone will correct me.

[Aech]

Hi,

I think SPLICE is the answer, saw something similar in the Experts forum - https://ibmmainframes.com/about23725.html by Frank. Bit of studying and alot of trail and error but here it is if anyone needs it

Code: Select all

//*                                                                    
//JSTEP001 EXEC PGM=ICETOOL                                            
//DFSMSG   DD   SYSOUT=*                                              
//TOOLMSG  DD   SYSOUT=*                                              
//IN       DD   *                                                      
Job1    Description1    Monday                                        
Job2    Description2    Friday                                        
Job3    Description3    Monday                                        
                        Thursday                                      
Job4    Description4    Monday                                        
Job4    Description4    Tuesday                                        
                        Wednesday                                      
                        Thursday                                      
                        Friday                                        
Job5    Description5    Sunday                                        
/*                                                                    
//T1       DD   DSN=&&T1,DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(1,1),RLSE)
//OUT      DD   SYSOUT=*                                              
//TOOLIN   DD   *                                                      
 COPY FROM(IN) TO(T1) USING(CTL1)                                
 SPLICE FROM(T1) TO(OUT) ON(1,20,CH) WITHANY KEEPNODUPS -        
   WITH(25,10) WITH(35,10) WITH(45,10) WITH(55,10) WITH(65,10)    
/*                                                                
//CTL1CNTL DD   *                                                
 INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,2,CH,EQ,C'Job'),              
 PUSH=(80:1,20))                                                  
 OUTREC IFOUTLEN=80,                                              
 IFTHEN=(WHEN=INIT,OVERLAY=(101:SEQNUM,2,ZD,RESTART=(80,20))),    
 IFTHEN=(WHEN=(101,2,ZD,EQ,1),BUILD=(80,20,25:25,10)),            
 IFTHEN=(WHEN=(101,2,ZD,EQ,2),BUILD=(80,20,35:25,10)),            
 IFTHEN=(WHEN=(101,2,ZD,EQ,3),BUILD=(80,20,45:25,10)),            
 IFTHEN=(WHEN=(101,2,ZD,EQ,4),BUILD=(80,20,55:25,10)),            
 IFTHEN=(WHEN=(101,2,ZD,EQ,5),BUILD=(80,20,65:25,10))            
/*                                                                

Output Below:

Code: Select all

Job1    Description1    Monday                                        
Job2    Description2    Friday                                        
Job3    Description3    Monday    Thursday                            
Job4    Description4    Monday    Tuesday   Wednesday Thursday  Friday
Job5    Description5    Sunday                                        

[willy jensen]

well done