Originally posted by: SystemAdmin

Hi,
we have MAINMAP which calls EIMSMAP.now its working in windows,But its not coming when we are trying in Mainframes,below is the JCL which we are using for Multiple Map execution.

Can anyone suggest what need to be done?

//WTXMULT JOB A3420CUF,'WTX JOB',REGION=0M,USER=INCIS11,TIME=1440, 16207231
// MSGLEVEL=(1,1),MSGCLASS=A,NOTIFY=&SYSUID 0000000
//*******************************************************************
//*DELETE ALL THE DATASETS USED BY THIS JOB
//*******************************************************************
//$DEL EXEC PGM=IEFBR14 0000000
//XMLDEL DD DSN=AX.IUO.MNT.EIMS.SAMPLE.OUT.MM2,DISP=(MOD,DELETE), 0000000
// SPACE=(CYL,15,RLSE) 0000000
//TRCDEL DD DSN=AX.IUO.MNT.EIMS.SAMPLE.MM1.TRACE,DISP=(MOD,DELETE), 0000000
// SPACE=(CYL,15,RLSE) 0000000
//TEMPFL DD DSN=AX.IUO.MNT.EIMS.SAMPLE.OUT.TEMP1,DISP=(MOD,DELETE), 0000000
// SPACE=(CYL,15,RLSE) 0000000
//***************************************************************** 0000000
// SET DTXLIB=SYS1.WTE.SDTXLOAD <== DTX LOAD LIB 0000000
// SET MAPLIB=AX.DURGA6.JCL(MAINM01) <== DTX MAP DSN 0000000
// SET MAPXSD=AX.PARTHA.EIMS.XSD.NINE <== DTX MAP DSN 0000000
// SET MAPINPT=AX.IT5031.AVIXML.OUTPUT.XCC.SIT3 0000000
// SET MAPOUT=AX.IUO.MNT.EIMS.SAMPLE.OUT.MM2 <== OUTPUT FILE DSN 0000000
// SET UNIT=SYSDA <== WORKFILE UNIT 0000000
// SET LRECL=32760 <== WORKFILE LRECL 0000000
// SET CLASS=* <== SYSOUT CLASS 0000000
//******************************************************************* 0000000
//DTX EXEC PGM=DTXCMDSV,PARM='MAINMAP' 0000000
//STEPLIB DD DISP=SHR,DSN=&DTXLIB 0000000
//MAINMAP DD DISP=SHR,DSN=&MAPLIB 0000000
//EIMSMAP DD DISP=SHR,DSN=AX.DURGA6.JCL(EIMSM01) 0000000
//DTXLOG DD SYSOUT=&CLASS EXECUTION LOG 0000000
//DTXAUD DD SYSOUT=&CLASS AUDIT FILE 0000000
//DTXTRCE DD DSN=AX.PARTHA.EIMS.SAMPLE.MM1.TRACE, 0000000
// DCB=(RECFM=V,LRECL=180), 0000000
// UNIT=(SYSDA,32), 0000000
// SPACE=(CYL,(500,250),RLSE), 0000000
// DISP=(NEW,CATLG,DELETE) 0000000
//SYSPRINT DD SYSOUT=&CLASS 0000000
//SYSOUT DD SYSOUT=&CLASS 0000000
//CEEDUMP DD SYSOUT=&CLASS 0000000
//* DEFINE THE OUTPUT DATASET 0000000
//EIMSOUTP DD DSN=&MAPOUT, 0000000
// DCB=(RECFM=V,LRECL=80), 0000000
// UNIT=(SYSDA,32), 0000000
// SPACE=(CYL,(250,250),RLSE), 0000000
// DISP=(NEW,CATLG,DELETE) 0000000
//RETURNCO DD DSN=AX.PARTHA.EIMS.SAMPLE.OUT.TEMP1, 0000000
// DCB=(RECFM=V,LRECL=80), 0000000
// UNIT=(SYSDA,32), 0000000
// SPACE=(CYL,(250,250),RLSE), 0000000
// DISP=(NEW,CATLG,DELETE) 0000000
//* 0000000
//AX DD DISP=SHR,DSN=&MAPINPT 0000000
//MASTXSD DD DISP=SHR,DSN=&MAPXSD 0000000
//* 0000000
//SYSTMP01 DD DSN=&&TEMP01, 0000000
// DISP=(NEW,DELETE,DELETE), 0000000
// DCB=(RECFM=FBS,LRECL=&LRECL), 0000000
// UNIT=(&UNIT,32), 0000000
// SPACE=(CYL,(300,100),RLSE) 0000000
//SYSTMP02 DD DSN=&&TEMP02, 0000000
// DISP=(NEW,DELETE,DELETE), 0000000
// DCB=(RECFM=FBS,LRECL=&LRECL), 0000000
// UNIT=(&UNIT,32), 0000000
// SPACE=(CYL,(300,100),RLSE) 0000000
//SYSTMP03 DD DSN=&&TEMP03, 0000000
// DISP=(NEW,DELETE,DELETE), 0000000
// DCB=(RECFM=FBS,LRECL=&LRECL), 0000000
// UNIT=(&UNIT,32), 0000000
// SPACE=(CYL,(300,100),RLSE) 0000000
//SYSTMP04 DD DSN=&&TEMP04, 0000000
// DISP=(NEW,DELETE,DELETE), 0000000
// DCB=(RECFM=FBS,LRECL=&LRECL), 0000000
// UNIT=(&UNIT,32), 0000000
// SPACE=(CYL,(300,100),RLSE) 0000000
//SYSTMP05 DD DSN=&&TEMP05, 0000000
// DISP=(NEW,DELETE,DELETE), 0000000
// DCB=(RECFM=FBS,LRECL=&LRECL), 0000000
// UNIT=(&UNIT,32), 0000000
// SPACE=(CYL,(300,100),RLSE) 0000000
#IBM-Websphere-Transformation-Extender
#DataExchange
#IBMSterlingTransformationExtender

Originally posted by: janhess

Did you compile it for the mainframe environment?
#IBMSterlingTransformationExtender
#IBM-Websphere-Transformation-Extender
#DataExchange

Originally posted by: SystemAdmin

yes i compiled it in mainframes.....
while running iam getting data invalid error.....
#IBMSterlingTransformationExtender
#IBM-Websphere-Transformation-Extender
#DataExchange

Originally posted by: janhess

Check the trace file for the invalid data.
#IBM-Websphere-Transformation-Extender
#DataExchange
#IBMSterlingTransformationExtender

Originally posted by: SystemAdmin

Hi,

Is your map input having multiple records seperated by <CR><LF> or <NL>?

If so you need to provide that information in PARM while running the map on PC, otherwise it removes all <CR><LF>s in file while running it on Mainframe and wraps the file because of which the data becomes invalid.

So your JCL should be as follows:
//DTX EXEC PGM=DTXCMDSV,PARM='-@CMDLINE'

//CMDLINE DD *
MAINMAP /I1 AX /O1 EIMSOUTP
/VX0D,X15 AX /VX0D,X15 EIMSOUTP
/*
Where AX is the ddname for input and EIMSOUTP is the ddname for output in output card 1 of the map.
#IBMSterlingTransformationExtender
#DataExchange
#IBM-Websphere-Transformation-Extender