IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

Writing multiple records into a CSV report


 
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
hiravibk
Warnings : 1

Active User


Joined: 14 Dec 2008
Posts: 107
Location: India

PostPosted: Wed Nov 07, 2018 2:35 pm
Reply with quote

Input File:
(Included line numbers for reference)
Code:

123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
FOFAC001 016 FOFAC001 LO       000 UNIX 086848 011915 000 000 0228  18310/0030
        ------------------------- AGENT INFORMATION  -------------------------
        Job Type: UNIX_JOB                                                   
        Agent:  LINUX_01ABHK                                                 
        Userid: UMIKE001                                                     
        -------------------------------- PROSE --------------------------------
        DESCRIPTION:                                                           
        WR0000000/DTLKU/12-14-16 --REQ AND TRIGGERBY UPDATED                   
        --------------------------- TRIGGERED JOBS ----------------------------
           JOB=BOFAC001 SCHID=000      QTM=0100 LEADTM=0000 SUBMTM=0000       
           JOB=COFAC001 SCHID=000      QTM=0100 LEADTM=0000 SUBMTM=0000       
           JOB=DOFAC001 SCHID=000      QTM=0100 LEADTM=0000 SUBMTM=0000       
FOFAC002 016 FOFAC001 LO       000 UNIX 086848 011915 000 000 0228  18310/0030
        ---------------- REQUIREMENTS AND NETWORK CONNECTIONS -----------------
           JOB=BOFAC001 SCHID=000      QTM=0100 LEADTM=0000 SUBMTM=0000       
           JOB=MOFAC001 SCHID=000      QTM=0100 LEADTM=0000 SUBMTM=0000       


Output Report Required:
(Included line numbers for reference)
Code:

12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
JOBNAME ,LASTRUN   ,JOBTYPE ,AGENT       ,USERID  ,TRIGGERED JOBS            ,REQ JOBS
FOFAC001,18310/0030,UNIX_JOB,LINUX_01ABHK,UMIKE001,BOFAC001;COFAC001;DOFAC001,
FOFAC002,18310/0030,        ,            ,        ,                          ,BOFAC001;MOFAC001


I tried the below code and was able to group records. I also tried INREC IFTHEN but couldn't get required results. Please help. The 'PROSE' section under each job could be ignored, each job in a particular section is delimited by a ';'.
Code:
//SYSIN    DD  *                                                   
  OPTION COPY                                                     
  INREC IFTHEN=(WHEN=GROUP,                                       
        BEGIN=(2,3,CH,NE,C' '),PUSH=(85:2,8))                     
  OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(95:SEQNUM,3,ZD,RESTART=(85,8)))
/*

Code:

12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345
FOFAC001 016 FOFAC001 LO       000 UNIX 086848 011915 000 000 0228  18310/0030   FOFAC001 001
        ------------------------- AGENT INFORMATION  -------------------------   FOFAC001 002
        Job Type: UNIX_JOB                                                       FOFAC001 003
        Agent:  LINUX_01ABHK                                                     FOFAC001 004
        Userid: UMIKE001                                                         FOFAC001 005
        -------------------------------- PROSE --------------------------------  FOFAC001 006
        DESCRIPTION:                                                             FOFAC001 007
        WR0000000/DTLKU/12-14-16 --REQ AND TRIGGERBY UPDATED                     FOFAC001 008
        --------------------------- TRIGGERED JOBS ----------------------------  FOFAC001 009
           JOB=BOFAC001 SCHID=000      QTM=0100 LEADTM=0000 SUBMTM=0000          FOFAC001 010
           JOB=COFAC001 SCHID=000      QTM=0100 LEADTM=0000 SUBMTM=0000          FOFAC001 011
           JOB=DOFAC001 SCHID=000      QTM=0100 LEADTM=0000 SUBMTM=0000          FOFAC001 012
FOFAC002 016 FOFAC001 LO       000 UNIX 086848 011915 000 000 0228  18310/0030   FOFAC002 001
        ---------------- REQUIREMENTS AND NETWORK CONNECTIONS -----------------  FOFAC002 002
           JOB=BOFAC001 SCHID=000      QTM=0100 LEADTM=0000 SUBMTM=0000          FOFAC002 003
           JOB=MOFAC001 SCHID=000      QTM=0100 LEADTM=0000 SUBMTM=0000          FOFAC002 004
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2481
Location: @my desk

PostPosted: Wed Nov 07, 2018 6:33 pm
Reply with quote

hiravibk,

A couple of questions.

What are the criteria that determine 'TRIGGERED JOBS' vs 'REQ JOBS'?

Quote:
The 'PROSE' section under each job could be ignored
Did not really get what you meant by this, could you explain further? Looks like all the job names that you need in the output are technically below the 'PROSE section'.
Back to top
View user's profile Send private message
hiravibk
Warnings : 1

Active User


Joined: 14 Dec 2008
Posts: 107
Location: India

PostPosted: Wed Nov 07, 2018 10:52 pm
Reply with quote

Arun Raj wrote:
hiravibk,

A couple of questions.

What are the criteria that determine 'TRIGGERED JOBS' vs 'REQ JOBS'?

Quote:
The 'PROSE' section under each job could be ignored
Did not really get what you meant by this, could you explain further? Looks like all the job names that you need in the output are technically below the 'PROSE section'.


1. The input file will have details of a job spanning several lines with sections - AGENT INFORMATION, PROSE , TRIGGERED JOBS and REQUIREMENTS AND NETWORK CONNECTIONS.

2. I dont want details under PROSE, but want certain details for the job from all other sections. For eg for the first job FOFAC001, it doesn't have 'REQUIREMENTS AND NETWORK CONNECTIONS' section, so in output file, for FOFAC001 it has blanks under 'REQ JOBS'. But the second job FOFAC002 has this section.

3. In the input file, the headers for each sections (AGENT INFORMATION, PROSE , TRIGGERED JOBS and REQUIREMENTS AND NETWORK CONNECTIONS) begin at the same positions for all the jobs i.e.:
a) 'AGENT INFORMATION' header begins at 35.
b) 'PROSE' header begins at 42.
c) 'TRIGGERED JOBS' header begins at 37.
d) 'REQUIREMENTS AND NETWORK CONNECTIONS' header begins at 25
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts Creating a single-record file with CO... DFSORT/ICETOOL 8
No new posts JCL to extract repeating records DFSORT/ICETOOL 6
No new posts Read 4MB message and split into multi... COBOL Programming 9
No new posts SARBCH REPORT DD writing error CA Products 1
No new posts Group selective VB records - Trailer ... DFSORT/ICETOOL 16

Back to Top