Query in INREC IFTHEN=(WHEN=GROUP)

In this Mainframe Forum - You can post your queries on DFSORT, ICETOOL , SyncSort & JCL Utilities

Moderators: Frank Yaeger, Moderator Group

Post Reply
gyt3
Member
Posts: 7
Joined: Sun Dec 16, 2012 9:46 am

Query in INREC IFTHEN=(WHEN=GROUP)

Post by gyt3 » Wed Mar 11, 2020 10:46 am

Hi All,

I have an input like this

<Request RequestID="5803727242796658404053"
<BillTo>
<CustomerID/>
</BillTo>
<Events>
<Event>
<Event>Stop Payment</Event>
<EventDate>2020-01-31T16:00:00Z</EventDate>

</Event>
</Events>
</Request>
<Request RequestID="5809478787336002204087"
<BillTo>
<CustomerID/>
</BillTo>
<Events>
<Event>
</Request>

There are two XML's in my input, I need to write only the first set into the output file, I dont want the second set as it doesnt contain Variables like <Event>. There are 31 records in every group, I just copied few for reference.

My Output should be like this
<Request RequestID="5803727242796658404053"
<BillTo>
<CustomerID/>
</BillTo>
<Events>
<Event>
<Event>Stop Payment</Event>
<EventDate>2020-01-31T16:00:00Z</EventDate>

</Event>
</Events>
</Request>

I tried the following sort card for the same, but, its not working

OPTION COPY
INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,9,CH,EQ,C'<Request '),
RECORDS=31,PUSH=(401:1,400))
OUTFIL OMIT=(1,9,CH,EQ,C'<Request '),
IFOUTLEN=400,
IFTHEN=(WHEN=(1,7,CH,EQ,C'<Event>'),
BUILD=(401,400,/,1,400))
Every XML starts with <Request> and the lrecl of the file is 400 and each group contains 31 records.

Can someone please help me on this .

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others