Andreas, IFTHEN WHEN=GROUP is your best friend. I think Sri will give you the solution in a while. If he will not, at end of my workday I could try to provide a solution.
Best regards. Max Il giorno ven 30 set 2022 alle ore 15:10 Andreas von Imhof < [email protected]> ha scritto: > Hi > > I am trying to create 1 output record from multiple input records. Also > the output record will be reformatted. > I have been trying to get the ICETOOL SPLICE function to work, but alas to > no avail. > Please can someone help? > > Reason for wanting to use SORT/ICETOOL is to reduce CPU consumption > (current REXX runs several times per day against input files with millions > of records). Also the REXX is difficult to maintain. > IF SORT can do this then it will be easy for the users to maintain. > > From the input record I want to scan for "CURRENT PLAN OPERATION" and > select the 1st occurrence of APPLICATION ID / JOB NAME / WORKSTATION NAME. > The rest of the records are discarded till the next occurrence of "CURRENT > PLAN OPERATION". > > Input data (output from TWS (old OPC): > Copy and paste into a dataset (lrecl 80) will restore the alignment) > > > ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8 > 1 CURRENT PLAN OPERATION > > ___________________________ > > APPLICATION ID :ASC4D99A > > INPUT ARRIVAL DATE :220926 > > INPUT ARRIVAL TIME :0645 > > OPERATION NUMBER : 10 > > AUTHORITY GROUP :TEST > > DESCRIPTIVE TEXT :Unl tablespacestats DBTZ > > JOB NAME :C4D9910S > > JOB ID :JOB27971 > > WORKSTATION NAME :SONS > > FORM NUMBER : > > PLANNED START DATE :220926 > > PLANNED START TIME :00064501 > > PLANNED END DATE :220926 > > PLANNED END TIME :00064502 > > OPERATION INPUT ARRIVAL DATE : > > OPERATION INPUT ARRIVAL TIME : > > OPERATION DEADLINE DATE/TIME :2209270644 > > > > Desired output data: > Built from APPLICATION ID / JOB NAME / WORKSTATION NAME > > ASC4D99A C4D9910S SONS > > > If needed I can upload a larger version of the input file to Google drive > (not sure I can add an attachment here). > > Thanks in advance and kind regards > Andreas (aka the now useless z performance specialist) > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
