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 

Help in JCL

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
psmadhusudhan
Beginner


Joined: 28 Nov 2006
Posts: 143
Topics: 48

PostPosted: Wed Nov 19, 2008 5:01 am    Post subject: Help in JCL Reply with quote

Hi,

I am executing dataquery in a job and printing the output in a PS using following JCL

Code:
//DQRYFTP  JOB (TAX,TAX),'DATA QRY',CLASS=P,MSGCLASS=T,             
//           NOTIFY=&SYSUID                                         
//*                                                                 
//*******************************************************************
//* JOBS TO RUN DATAQUERY AND SEND THE RESULT TO GIVEN EMAIL ID     
//*******************************************************************
//DQBATCH  EXEC DQRY,DBMS=DB10H01                                   
//SYSPRINT  DD DSN=TTAX.DATAQRY.RESULT,DISP=(NEW,CATLG,DELETE),     
//          UNIT=DISK,DCB=(RECFM=VB,DSORG=PS,LRECL=3000),           
//          SPACE=(CYL,(50,10),RLSE)                                 
//SYSIN      DD *                                                   
SUBMIT                                  PASS DQL 000000000000000000 
   */THIS JOB WILL EXECUTE FOLLOWING DATAQUERY       /*             
   FIND      LOC-PAY-TOTALS QTD-LOC-SUBJ-WG = 0 QTD-LOC-TXBL-WG = 0 
   STATE-CODE = '36' YEAR = '2007' QUARTER = '4'                     
   RELATED BY STATE-CODE TO LOCAL-DEF  DEP-NACD-SFX = '6691'         
   RELATED BY STATE-CODE TO FIRST D42-DB517                         
   SORT BY (EE-FILE-NUM)                                             
   PRINT                                                             
     FROM D42-DB517 EE-FILE-NUM                                     
              FROM  LOC-PAY-TOTALS                 TSN  YEAR  QUARTEr
   STATE-CODE  LOCAL-CODE  BRANCH-CODE  COMPANY-CODE  GSI-RUN-NUM   
   QTD-LOC-SUBJ-WG  QTD-LOC-TXBL-WG  QTD-LOC-TAX-WH  QTD-HOURS-WORKED
/* DQ INPUT
//*         


I am not getting the output in the proper format in the output file. The output file is formatted to record length 133 with block size 133.
Following is the present output:
Code:
11/19/2008                                                 DB10H01 QUERY                                                 PAGE     1A
01:14:32                                                                                                                 DETAIL

  EE-FILE-NUM      TSN  YEAR  QUARTER  STATE-CODE  LOCAL-CODE  BRANCH-CODE  COMPANY-CODE  GSI-RUN-NUM  QTD-LOC-SUBJ-WG
  -----------  -------  ----  -------  ----------  ----------  -----------  ------------  -----------  ---------------
  001258       0037568  2007  4        36          3604        73           GW-           516          00000000000.00
               0038199  2007  4        36          3612        73           NB            523          00000000000.00
               0038199  2007  4        36          3618        73           NB            523          00000000000.00
               0038199  2007  4        36          3628        73           NB            523          00000000000.00
               0038199  2007  4        36          3638        73           NB            523          00000000000.00

QTD-LOC-TXBL-WG   QTD-LOC-TAX-WH  QTD-HOURS-WORKED  QTD-3PSP-TXBL-WG  QTD-DEFERD-COMP      QTD-EIC  FILLER0001             YTD-EIC
  ---------------  ---------------  ----------------  ----------------  ---------------  -----------  -----------------  -----------
  00000000000.00   00000000000.00              00000     000000000.00     000198117.66   0000000.00                      0000000.00
  00000000000.00   00000000000.00              00000     000000000.00     000198117.66   0000000.00                      0000000.00
  00000000000.00   00000000000.00              00000     000000000.00     000198117.66   0000000.00                      0000000.00
  00000000000.00   00000000000.00              00000     000000000.00     000198117.66   0000000.00                      0000000.00


I want to get the output as exactly seen the dataquery region means no breakup of columns and rows.

I had increased the LRECL to 3000, even then it is taking recl as 133 and formatting the data accordingly. Even I tried printing the output in spool but even in spool data is coming as above.

Please help me in this regard.
_________________
Thanks
Madhu Sudhan
Back to top
View user's profile Send private message
Bill Dennis
Advanced


Joined: 03 Dec 2002
Posts: 579
Topics: 1
Location: Iowa, USA

PostPosted: Wed Nov 19, 2008 11:28 am    Post subject: Reply with quote

The program that OPENs the SYSPRINT DDname is the final authority on the LRECL used (ignoring the JCL). It must be coded as 133. Change the program.
_________________
Regards,
Bill Dennis

Disclaimer: My comments on this foorum are my own and do not represent the opinions or suggestions of any other person or business entity.
Back to top
View user's profile Send private message
CraigG
Intermediate


Joined: 02 May 2007
Posts: 202
Topics: 0
Location: Viginia, USA

PostPosted: Wed Nov 19, 2008 11:40 am    Post subject: Reply with quote

The program you are using is designed to output 133 character records and that is just what it is doing. It is overrideing the LRECL you are providing and using 133.
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 -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
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