Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 8500

TSO/ISPF :: Splitting of single report to seperate reports using XMITIP

$
0
0
Author: abdulrafi
Subject: Splitting of single report to seperate reports using XMITIP
Posted: Mon Mar 27, 2017 3:59 pm (GMT 5.5)

Hi,

I do have the below jcl to split the file based on a key and send it to mail id's. But because of carriage return I am unable to get it.

Key here is 21805 and 21809 which is present at top left of the file. I need to get two separate attachments in my mail one with 21805 data and other with 21809.

Could you please help me how to resolve it.


Code:

//T040C4TX JOB (P904020,T040,99,99),'EXPORTTS-TEST1',               
 //  NOTIFY=&SYSUID,MSGCLASS=Q,TIME=(02,00),REGION=0M               
 //REPSPLIT EXEC XMITIP                                             
 //INPUT1 DD DSN=NVSTN.PR.IMAGE4.TEST.EDIT1,DISP=SHR                 
 //INPUTC DD DSN=NVSTN.XMIT.INVSUMM,DISP=SHR                         
 //XMCC   DD *                                                       
 FROM b.abdulrafi@gmail.com
 FORMAT TXT                                                         
 MSGT 'ATTACHED ARE THE INVOICE SUMMARY'             
 SUBJECT 'INVOICE SUMMARY REPORT'                               
 /*                                                                 
 //SYSTSIN  DD *                                                     
 %XMITIPSP DD:INPUT1 DD:INPUTC                                       
 //***TROL DD DSN=T040BK8.PDS.CNTL2(XMITCC),DISP=SHR                 
 //SYSPRINT DD SYSOUT=*



Code:

21805     INVOICE SUMMARY
              DOCUMENTS SENT:  03/21/17

INVOICE       MODEL YEAR  MODEL             TMSORDER  FREIGHT     UNITS    INSURANCE        FOB               CIF
---------------------------------------------------------------------------------------------------------------------------------------------------------



CASH MANAGMENT

DATE: _______________DEPOSIT BANK:  _______________

AMOUNT: _______________SOURCE OF INFO:   _______________

21805     INVOICE SUMMARY
          DOCUMENTS SENT:  03/21/17

INVOICE       MODEL YEAR  MODEL             TMSORDER  FREIGHT     UNITS    INSURANCE        FOB               CIF
---------------------------------------------------------------------------------------------------------------------------------------------------------


21809     INVOICE SUMMARY
          DOCUMENTS SENT:  03/21/17

INVOICE       MODEL YEAR  MODEL             TMSORDER  FREIGHT     UNITS    INSURANCE        FOB               CIF


     
CASH MANAGMENT

DATE: _______________DEPOSIT BANK:  _______________

AMOUNT: _______________SOURCE OF INFO:   _______________

21809     INVOICE SUMMARY
          DOCUMENTS SENT:  03/21/17

INVOICE       MODEL YEAR  MODEL             TMSORDER  FREIGHT     UNITS    INSURANCE        FOB               CIF
---------------------------------------------------------------------------------------------------------------------------------------------------------
           


Control card used:
Code:

SEPLOC=1/5/1                                                           
 KEYV=21805                                                           
 KEYMAIL=b.abdulrafi@gmail.com
 MERGEMAIL                                                             
 KEYV=21809                                                           
 KEYMAIL=b.abdulrafi@gmail.com       
 MERGEMAIL                                                             
 SUBJECT=INV SUMMARY                                         
 XMITIPCONFIG=DD:XMCC                                                 
 FILENAME=INVOICE_SUMMARY_&SEPVAL.TXT   



job log error:
Code:

Error: SEPLOC ROW requested with input data lacking carriage control in the DCB RECFM. 


If I give the SEPLOC AS 1/5 only I get output as,
Code:


21805     INVOICE SUMMARY
              DOCUMENTS SENT:  03/21/17

INVOICE       MODEL YEAR  MODEL             TMSORDER  FREIGHT     UNITS    INSURANCE        FOB               CIF
---------------------------------------------------------------------------------------------------------------------------------------------------------


rest of the few lines which corresponds to 21805 are missing.

I am not sure where it went wrong. Is it because I do not have any carriage return in my input file.
_________________
Thanks,
Abdul Rafi


Viewing all articles
Browse latest Browse all 8500

Trending Articles