Originally posted by: SystemAdmin

Hi,
We have developed map in windows using WTX and are trying to execute in Z/OS system. Earlier we had only one executable map (.mvs file) and we had imported that and executed using the below JCL. Now based on the functionality there are 2 executable maps (one calling the other) and we are not sure how to execute in Z/OS. (While building we get 2 jcls and 2 mvs files and are not sure how to use them).

Pls help us out to resolve this.
JCL USED
//AXWTX PROC MID=X,CYC=X
//*******************************************************************
//*DELETE ALL THE DATASETS USED BY THIS JOB
//*******************************************************************
//$DEL EXEC PGM=IEFBR14
//XMLDEL DD DSN=AX.IUO.&MID.AXWTX.OUTPUT.CYC&CYC,DISP=(MOD,DELETE),
// SPACE=(CYL,15,RLSE)
//TRCDEL DD DSN=AX.IUO.&MID.AXWTX.TRACE.CYC&CYC,DISP=(MOD,DELETE),
// SPACE=(CYL,15,RLSE)
//*****************************************************************
//*********************************************************************
//$01 EXEC PGM=SU1215,REGION=2M
//STEPLIB DD DSN=OFLN.OFLLOAD1,DISP=SHR
//PASSIT DD DSN=AX.IUO.&MID.AVIXML.OUTPUT.CYC&CYC,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//*********************************************************************
//* LICENSED MATERIALS - PROPERTY OF IBM *
//* 5655-R95 *
//* (C) COPYRIGHT IBM CORP. 2006 *
//* *
//* *
//*
//* MODIFY THESE GLOBAL SYMBOLICS FOR YOUR SITE INFORMATION
//*
// SET DTXLIB=SYS1.WTE.SDTXLOAD <== DTX LOAD LIB
// SET MAPLIB=AX.KANTH6.JCL(NMAP28) <== DTX MAP DSN
// SET MAPXSD=AX.PARTHA.EIMS.XSD.O2C.THREE <== DTX MAP DSN
// SET MAPINPT=AX.IUO.&MID.AVIXML.OUTPUT.CYC&CYC <== INP DSN
// SET MAPOUT=AX.IUO.&MID.AXWTX.OUTPUT.CYC&CYC <== OUTPUT FILE DSN
// SET UNIT=SYSDA <== WORKFILE UNIT
// SET LRECL=32760 <== WORKFILE LRECL
// SET CLASS=* <== SYSOUT CLASS
//*
//* NOTE: IF THE LE RUNTIME LIBRARY IS NOT IN THE MVS LINKLIST,
//* THIS JOB WILL ALLOCATE AN OUTPUT DATASET AND SEVERAL
//* TEMPORARY WORKFILES. IF YOU REQUIRE A VOLSER SPECIFICATION,
//* THE VOL=SER= PARAMETER MUST BE ADDED TO THE JCL.
//*******************************************************************
//DTX EXEC PGM=DTXCMDSV,
// PARM='REVERSEB',COND=(0,NE,$01)
//STEPLIB DD DISP=SHR,DSN=&DTXLIB
//*
//REVERSEB DD DISP=SHR,DSN=&MAPLIB
//DTXLOG DD SYSOUT=&CLASS EXECUTION LOG
//DTXAUD DD SYSOUT=&CLASS AUDIT FILE
//DTXTRCE DD DSN=AX.IUO.&MID.AXWTX.TRACE.CYC&CYC,
// DCB=(RECFM=V,LRECL=80),
// UNIT=(SYSDA,32),
// SPACE=(CYL,(500,250),RLSE),
// DISP=(NEW,CATLG,DELETE)
//SYSPRINT DD SYSOUT=&CLASS
//SYSOUT DD SYSOUT=&CLASS
//CEEDUMP DD SYSOUT=&CLASS
//*
//*
//* DEFINE THE OUTPUT DATASET
//TEST#OUT DD DSN=&MAPOUT,
// DCB=(RECFM=V,LRECL=80),
// UNIT=(SYSDA,32),
// SPACE=(CYL,(250,250),RLSE),
// DISP=(NEW,CATLG,DELETE)
//*
//*
//TEST2 DD DISP=SHR,DSN=&MAPINPT
//MASTXSD DD DISP=SHR,DSN=&MAPXSD
//*
//SYSTMP01 DD DSN=&&TEMP01,
// DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FBS,LRECL=&LRECL),
// UNIT=(&UNIT,32),
// SPACE=(CYL,(300,100),RLSE)
//SYSTMP02 DD DSN=&&TEMP02,
// DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FBS,LRECL=&LRECL),
// UNIT=(&UNIT,32),
// SPACE=(CYL,(300,100),RLSE)
//SYSTMP03 DD DSN=&&TEMP03,
// DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FBS,LRECL=&LRECL),
// UNIT=(&UNIT,32),
// SPACE=(CYL,(300,100),RLSE)
//SYSTMP04 DD DSN=&&TEMP04,
// DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FBS,LRECL=&LRECL),
// UNIT=(&UNIT,32),
// SPACE=(CYL,(300,100),RLSE)
//SYSTMP05 DD DSN=&&TEMP05,
// DISP=(NEW,DELETE,DELETE),
// DCB=(RECFM=FBS,LRECL=&LRECL),
// UNIT=(&UNIT,32),
// SPACE=(CYL,(300,100),RLSE)
#IBM-Websphere-Transformation-Extender
#DataExchange
#IBMSterlingTransformationExtender

Originally posted by: SystemAdmin

Hi Akrv,
looks like your doing an awful lot in this jcl.. i have streamlined this a bit, here is a simple blob map jcl to run up on the mainframe..

//$BILLV8 JOB (1101,315,464000),'AVILAA',
// MSGCLASS=T,NOTIFY=YOURID
//*MAIN CLASS=S4,LINES=999,BYTES=999999,USER=YOURID
//****************************************************
//WTX EXEC WTXBATCH,
// PARM='-@CMDLINE',
// MAPLIB=T181.YOURID.DEV.MAPS,
// MAP=BLOBFLOW
//DTX.CMDLINE DD DSN=T181.YOURID.DEV.CNTL(DPSCMDBL),DISP=SHR
//DTX.MI1 DD DSN=T181.YOURID.TESTDATA,DISP=SHR
//DTX.MO1 DD DSN=T181.YOURID.TESTOUT,
// DISP=(MOD,CATLG,DELETE),UNIT=SYSDA,
// DCB=(LRECL=1035,RECFM=VB),
// SPACE=(TRK,(10,10),RLSE)
//*

THIS IS THE DPSCMDBL

MAPLIB
-I1 MI1
-O1 MO1
/VX0D,X15 MO1

the WTXBATCH calls the Mercator MVS Load Libs.. this is much easier to maintain, and call each map as needed by having concurrent jcl..

hope this helps.

-Steve Brock
#DataExchange
#IBM-Websphere-Transformation-Extender
#IBMSterlingTransformationExtender

Originally posted by: SystemAdmin

Hi,

You need to provide a DDname for the called map in the JCL you are using.

// SET MAPLIB=AX.KANTH6.JCL(NMAP28) <== DTX MAP DSN
//REVERSEB DD DISP=SHR,DSN=&MAPLIB

From the above statements in your JCL, i believe NMAP28 is your main map and lets say you are calling some XYZ map from this.

Just add one more DD statement for the called map as below and you JCL should work:

//XYZ DD DISP=SHR,DSN=AX.path(mapname)

If the map name is more than 8 characters, use only the first 8 characters in DDname. Also, if there are any underscore you need to replace them with #.

XYZ_calledmap will become XYZ#CALL
#DataExchange
#IBM-Websphere-Transformation-Extender
#IBMSterlingTransformationExtender