The DFHMAMLU sample JCL utility is provided to support
the running of MQIAC flows in the runtime environment only. It is used to
generate repository entries from CICS® BMS map source code. The sample JCL
utility runs the Link3270 Repository file update batch program (DFHMALUP)
that generates repository entries. This can be included as an additional
step in a BMS assembly procedure. The Link3270 Repository file is not used
in the runtime processing of CICS SFR service
adapters.
//jobname JOB DFHMAMLU,'DFHMAMLU',CLASS=A,MSGCLASS=H TYPRUN=SCAN
//*********************************************************************
//* @START_COPYRIGHT@
//*
//* 5655-M15
//*
//* CICS SERVICE FLOW RUNTIME
//*
//* @END_COPYRIGHT@
//*********************************************************************
//*********************************************************************
//* RUN DFHMALUP (CICS SFR REPOSITORY FILE UPDATE PROGRAM)
//*
//*********************************************************************
//MALUP EXEC PGM=DFHMALUP
//STEPLIB DD DSN='hlq.SCIZLOAD',DISP=SHR
//*********************************************************************
//* The output will go to SYSPRINT
//*********************************************************************
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//BMS DD DSN=hlq.COBLIB(XXXXXXX),DISP=SHR
//DFHMALRF DD DSN=hlq.DFHMALRF,DISP=SHR
//**********************************************************************
//* *
//* SYSIN control card formats *
//* *
//** PARAMETERS ******************************************************
//* *
//* MAPSET= Mapset name (REQUIRED) *
//* (7 bytes maximum; uppercase entry only) *
//* *
//* OVERRIDE= Y/N - use mapset name from MAPSET= parameter *
//* overriding mapset name in BMS file. *
//* (1 byte OPTIONAL parameter; uppercase only if provided)*
//* *
//* STATIC= Y/N - include fields with INITIAL data but no *
//* field names. Static 3270 screen content. *
//* (1 byte OPTIONAL parameter; uppercase only if provided)*
//* *
//* PRINT= Print switch; valid values (A/N/P/spaces). *
//* *
//* (A)ll - print all BMS records read and errors *
//* (N)o - only errors reported *
//* (P)rocessed - print only processed BMS records read *
//* spaces - defaults to (P) *
//* NULL - defaults to (P) *
//* *
//* (1 byte OPTIONAL parameter; uppercase only if provided)*
//* *
//**********************************************************************
//*+5++++0++++5++++0++++5++++0++++5++++0++++5++++0++++5++++0++++5++++0++
//SYSIN DD *
MAPSET=name
//*OVERRIDE=
//*STATIC=
//*PRINT=
/*
//