REXX compiler

REXXCLG (FANCMCLG)

IBM Compiler and Library for REXX on zSeries V1R4 User's Guide and Reference
SH19-8160-05


REXXCLG compiles, link-edits, and runs a REXX program of type OBJECT. FANCMCLG is located in the data set prefix.SFANPRC.


//******************************************************************
//*
//* REXXCLG Compile, link edit, and run a REXX program of OBJ type.
//*
//* Licensed Materials - Property of IBM
//* 5695-013 IBM REXX Compiler
//* (C) Copyright IBM Corp. 1989, 2003
//*
//* Change Activity:
//* 03-05-28 Release 4.0
//*
//******************************************************************
//*
//* Parameters:
//*
//* OPTIONS Compilation options.
//* Default: XREF OBJECT NOCEXEC
//*
//* COMPDSN DSN of IBM REXX Compiler load library.
//*
//* LIBDSN DSN of IBM REXX Library load library for Stubs.
//*
//* LIBLPA DSN of IBM REXX Library LPA library.
//* If &LIBLPA is in the search order, you may deactivate
//* the GO.STEPLIB and the PROC LIBLPA definition.
//*
//* LIBXDSN DSN of IBM REXX Library exec library.
//*
//* Required:
//*
//* REXX.SYSIN DDNAME, REXX program to be compiled, link edited,
//* and run.
//*
//* Example:
//*
//* To compile MYREXX.EXEC(MYPROG), to link edit the resulting
//* OBJECT output together with a stub suitable for invocation
//* in MVS batch, to keep the resulting load module in
//* MYREXX.LOAD(MYPROG), and to run this load module, use the
//* following invocation:
//*
//* //S1 EXEC REXXCLG
//* //REXX.SYSIN DD DSN=MYREXX.EXEC(MYPROG),DISP=SHR
//* //LKED.SYSLMOD DD DSN=MYREXX.LOAD(MYPROG),DISP=SHR
//*
//* Modifications:
//* Change #HLQREXX to the appropriate high-level qualifier of
//* your installation.
//*
//******************************************************************
//*
//REXXCLG PROC STUB=MVS, Type of stub
// OPTIONS='XREF OBJECT NOCEXEC', REXX Compiler options
// COMPDSN='#HLQREXX.SFANLMD', REXX Compiler load lib
// LIBDSN='#HLQREXX.SEAGLMD', REXX Library stub load
// LIBLPA='#HLQREXX.SEAGLPA', REXX Library LPA lib
// LIBXDSN='#HLQREXX.SEAGCMD' REXX Library exec lib
//*
//*-----------------------------------------------------------------
//* Compile REXX program.
//*-----------------------------------------------------------------
//*
//REXX EXEC PGM=REXXCOMP,PARM='&OPTIONS'
//STEPLIB DD DSN=&COMPDSN,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//*SYSIEXEC DD DUMMY
//*SYSDUMP DD DUMMY
//*SYSCEXEC DD DUMMY
//SYSPUNCH DD DSN=&&OBJECT,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(800,(800,100))
//*
//*-----------------------------------------------------------------
//* Prepare SYSLIN data set for subsequent link step.
//*-----------------------------------------------------------------
//*
//PLKED EXEC PGM=IRXJCL,PARM='REXXL &STUB',
// COND=(9,LT,REXX)
//*
//SYSEXEC DD DSN=&LIBXDSN,DISP=SHR
//SYSIN DD DSN=&&OBJECT,DISP=(OLD,DELETE)
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD DSN=&&SYSOUT,DISP=(MOD,PASS),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
// SPACE=(800,(800,100))
//*
//*-----------------------------------------------------------------
//* Link together stub and program.
//*-----------------------------------------------------------------
//*
//LKED EXEC PGM=HEWL,PARM='LIST,AMODE=31,RMODE=ANY,RENT,MAP',
// COND=((9,LT,REXX),(0,NE,PLKED))
//*
//SYSLIN DD DSN=&&SYSOUT,DISP=(OLD,DELETE)
//SYSLIB DD DSN=&LIBDSN,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(200,20))
//SYSPRINT DD SYSOUT=*
//SYSLMOD DD DSN=&&GOSET(GO),DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(1024,(50,20,1))
//*
//*-----------------------------------------------------------------
//* Run the compiled REXX program.
//*-----------------------------------------------------------------
//*
//GO EXEC PGM=*.LKED.SYSLMOD,
// COND=((9,LT,REXX),(0,NE,PLKED),(0,NE,LKED))
//*
//STEPLIB DD DSN=&LIBLPA,DISP=SHR
//SYSTSPRT DD SYSOUT=*

SCL SCAN SEARCH LIST MEMBER

SCL ENDEVOR SEARCH SCAN


IN THE J0B LIST IN SDSF: F '*' 12





SET STOPRC 16 .
LIST ELEMENT 'SIDCH1PD' THRU 'SIDZ30PC'
FROM ENVIRONMENT 'PROD' SYSTEM 'CIS' SUBSYSTEM 'CIS00'
TYPE 'COB2' STAGE 2
TO DSNAME 'RSXRRA.SQL.OUT'
OPTIONS SHOWING TEXT NOSEARCH
WHERE TEXT ((EQ
'AP_EMPLOYER'
COLUMNS 006 072 ) AND
( EQ 'INSERT'
COLUMNS 006 072 ))
BUILD ACTION &&ACTION
.





--------===========================================================------------------


SET STOPRC 16 .
LIST ELEMENT 'SIDCH1PD' THRU 'SIDZ30PC'
FROM ENVIRONMENT 'PROD' SYSTEM 'CIS' SUBSYSTEM 'CIS00'
TYPE 'COB2' STAGE 2
TO DSNAME 'RSXRRA.SQL.OUT'
OPTIONS SHOWING TEXT NOSEARCH
WHERE TEXT
(
(
( EQ ' UPDATE VAP_EMPLOYER' COLUMNS 006 072 )
OR
( EQ ' UPDATE VAP_EMPLOYER' COLUMNS 006 072 )
OR
( EQ ' INTO VAP_EMPLOYER' COLUMNS 006 072 )
OR
( EQ ' INTO VAP_EMPLOYER' COLUMNS 006 072 )
)


)
BUILD ACTION &&ACTION
.
****************************

LIST ELEMENT 'SID*'
FROM ENVIRONMENT 'PROD' SYSTEM 'CIS' SUBSYSTEM 'CIS00'
TYPE 'COB2' STAGE 2
OPTIONS SHOWING TEXT
WHERE TEXT EQ
'ESCROW_ORDER'
.
**************************** Bottom of Data ********************