MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Build single output from multiple inputs
Goto page Previous  1, 2
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12382
Topics: 75
Location: San Jose
PostPosted: Fri Feb 25, 2011 11:37 am    Post subject: Reply with quote
radkrish82,

Show me the production split job control cards , I will try to show you the solution based on that.
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
radkrish82
Beginner


Joined: 19 Feb 2009
Posts: 50
Topics: 10
PostPosted: Sat Feb 26, 2011 5:02 am    Post subject: Reply with quote
We are using program to Split based on SYSIN. It checks for postion#1 that has value 1 or 2. if it is '1' then it will write TT01 report. If it '2' then it will write TT02. How many sysins we pass, it will create as many split files.

Program sysin
Code:
//SYSIN    DD *
1,DD=TT01   
2,DD=TT02   


Code:
1REPORT-R01     12/24/2010                 REPORT ON, DETAIL, PA
1                                               ATIONS (RC)   -IN
1 SEC: XXXN5                           PAYMENT DATE : 2010/12/24     QUAL FIV TT
1                                      CHECK OFF : Y                 QUAL ST TTT
1              YR  STAT    DIV (EB)                                             
1   ORIGINAL: 2010 D         1.000000                                           
1                          DIV (EB)                                             
1   NEW     : 2010 A         1.000000(10)                                       
1                                                                               
1 ACCOUNT      YR  STAT                                                         
1                                                                               
1   NO ACCOUNTS FOUND FOR THIS TTTC ENTRY                                       
1                                                                               
2REPORT-R02     12/24/2010                 REPORT ON, DETAIL, PA
2                                               NO ACCOUNTS   (  )   - IN2
2 SEC: XXXN5                           PAYMENT DATE : 2010/12/24     QUAL FIV TT
2                                      CHECK OFF : Y                 QUAL ST TTT
 
2              YR  STAT    DIV (EB)                                             
2   ORIGINAL: 2010 D         1.000000                                           
2                                                                               




I tried with the following and got the result. But the JCL became bigger Smile
I dont know short cut form. So I wrote a direct method from file1 to out1 using following control card for 80 char length.

Code:
SPLICE FROM(FILEC) TO(OUTC) ON(161,8,ZD) KEEPNODUPS WITHEACH -       
  WITH(36,21) USING(CPYC)                                             
//CPYCCNTL DD *                                                       
    OPTION COPY                                                       
    INCLUDE COND=(19,7,SS,EQ,C'WRITTEN,DELETED')                       
    INREC IFTHEN=(WHEN=GROUP,RECORDS=2,PUSH=(161:ID=8,169:SEQ=2)),     
    IFTHEN=(WHEN=(169,2,ZD,EQ,2),OVERLAY=(36:14,21))                   
    OUTFIL FNAMES=OUT1,BUILD=(1:C'XXXXXXXX-02:',13,148)               
/*                                                                   


Code:
XXXXXXXX-02: RCDS WRITTEN 00000030 RCDS DELETED 00000000   


And merged all files to 80 char.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12382
Topics: 75
Location: San Jose
PostPosted: Sat Feb 26, 2011 9:42 pm    Post subject: Reply with quote
radkrish82,


The first line has the report name (ex: REPORT-R01, REPORT-R02 ... ) present in the split output files? If so we can use them as identifier to get the counts.
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
radkrish82
Beginner


Joined: 19 Feb 2009
Posts: 50
Topics: 10
PostPosted: Mon Feb 28, 2011 2:53 am    Post subject: Reply with quote
Quote:
The first line has the report name (ex: REPORT-R01, REPORT-R02 ... ) present in the split output files?


There are two report types 01 & 02. REPORT is the job name which is same here. Only with record types we are splitting into 01 type seperately and 02 seperately. For eg., If there are two reports files as I mentioned below, then following split files are created.
REPORT-01 created from first report that has 01 and 02 type
REPORT-02 created from first report (contains 02 type)
REPORT-01 from second report file (contains 01 type)
REPORT-02 from second report file (contains 02 type)
Thanks for all your help, Kolusu.
Back to top
View user's profile Send private message
radkrish82
Beginner


Joined: 19 Feb 2009
Posts: 50
Topics: 10
PostPosted: Mon Feb 28, 2011 3:14 am    Post subject: Reply with quote
I don't find it in my present requirement reports. But I checked in another set of reports which I wanted to do it similar way starting next month. I found a differentiation in splitted file!

TOTALS FOR RPT REPORT01 is for report type 01
TOTALS FOR RPT REPORT02 is for report type 02

TOTALS FOR RPT REPORT01
REPORT03.REPORTP0 - REPORT03, type 01 --> File 1
TOTALS FOR RPT REPORT02
REPORT03.REPORTP0 - REPORT03, type 02 --> File 2
TOTALS FOR RPT REPORT01
REPORT04.REPORTP0 - REPORT04, type 01 --> File 1
TOTALS FOR RPT REPORT02
REPORT04.REPORTP0 - REPORT04, type 02 --> File 2

Differentiation file name can be REPOT03-01, REPORT04-01,REPORT04-02, etc. in the catlg output count dataset for rcds written and deleted as its header.

Code:
[size=7]=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7-
000304 0   NO XX RECORDS FOR THIS RUN.                                     
000305 1          IDABC TOTALS FOR RPT REPORT01                           
000306              RCDS WRITTEN 00000314                                     
000307              RCDS DELETED 00000000                                     
000308             INPUT VOL=DS2440                                           
000309             INPUT DSN=YYYY.REPT.REPORT03.REPORTP0.DATE2602
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7-
000001 1          IDABC TOTALS FOR RPT REPORT02                           
000002              RCDS WRITTEN 00000000                                     
000003              RCDS DELETED 00000000                                     
000004             INPUT VOL=DS2440                                           
000005             INPUT DSN=YYYY.REPT.REPORT03.REPORTP0.DATE2602     
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
000003 0   NO XX RECORDS FOR THIS RUN.                                       
000004 1          IDABC TOTALS FOR RPT REPORT01                             
000005              RCDS WRITTEN 00000001                                     
000006              RCDS DELETED 00000000                                     
000007             INPUT VOL=DS0881                                           
000008             INPUT DSN=YYYY.REPT.REPORT04.REPORTP0.DATE2602       
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
000001 1          IDABC TOTALS FOR RPT REPORT02                             
000002              RCDS WRITTEN 00000000                                     
000003              RCDS DELETED 00000000                                     
000004             INPUT VOL=DS0881                                           
000005             INPUT DSN=YYYY.REPT.REPORT04.REPORTP0.DATE2602[/size]

Both lies in 36th position.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group