One of our users has REXX code that resides in PDS LRECL 255 RECFM VB. They want to put these REXX routines in CA Librarian. Can CA Librarian managed these REXX routines?
Modify the ELIPSE Gen job - LUELIGEN, in the CALJJCL. Find the next available ATYP and add --
ATYPxx=(REXX,RXX,00,1),
Reassemble and link the ELIPSGEN module.
See the "Wide Record Master Files" section in Chapter 3: Disk Master Files of the CA Librarian System Services Reference Guide for instruction and sample JCL for creating a Wide Record Master File.
//JOBCARD//*//* ADDS A VB 255 LRECL MEMBER TO A WIDE RECORD MASTER FILE//*//* ==========================================================//* FIRST DELETE THEN ALLOCATE//* ==========================================================//STEP01 EXEC PGM=IEFBR14//DELTDD1 DD DSN=HLQ.MLQ.LIBR.SEQ1,// DISP=(MOD,DELETE,DELETE),// UNIT=SYSDA,SPACE=(TRK,1)//*//DELTDD2 DD DSN=HLQ.MLQ.LIBR.SEQ2,// DISP=(MOD,DELETE,DELETE),// UNIT=SYSDA,SPACE=(TRK,1)//*//DELTDD3 DD DSN=HLQ.MLQ.LIBR.MEM,// DISP=(MOD,DELETE,DELETE),// UNIT=SYSDA,SPACE=(TRK,1)/*//STEP02 EXEC PGM=IEFBR14//ALLCDD1 DD DSN=HLQ.MLQ.LIBR.SEQ1,// DISP=(NEW,CATLG,DELETE),// DCB=(RECFM=FB,LRECL=80),// SPACE=(TRK,(1,5),RLSE)//*//ALLCDD2 DD DSN=HLQ.MLQ.LIBR.SEQ2,// DISP=(NEW,CATLG,DELETE),// DCB=(RECFM=FB,LRECL=255),// SPACE=(TRK,(1,5),RLSE)//ALLCDD3 DD DSN=HLQ.MLQ.LIBR.MEM,// DISP=(NEW,CATLG,DELETE),// DCB=(RECFM=FB,LRECL=255),// SPACE=(TRK,(1,5),RLSE)/*//* ==========================================================//* CREATE THE LIBRARIAN ADD CONTROL STATEMENTS//* ==========================================================//BLDPARMS EXEC PGM=IEBGENER//SYSPRINT DD SYSOUT=*//SYSUT1 DD *-ADD LRECL255,SEQ=/0,1,10,10/-LANG RXX-DESC REXX ROUTINE WITH A LRECL OF 255//SYSUT2 DD DSN=HLQ.MLQ.LIBR.SEQ1,DISP=SHR/*//SYSIN DD DUMMY/*//* ==========================================================//* COPY THE LIBRARIAN ADD CONTROL STATEMENTS//* FROM FB 80 SEQ1 TO THE FB 255 SEQ2//* ==========================================================//CPYPARMS EXEC PGM=IEBGENER//SYSPRINT DD SYSOUT=*//SYSUT1 DD DSN=HLQ.MLQ.LIBR.SEQ1,DISP=SHR//SYSUT2 DD DSN=HLQ.MLQ.LIBR.SEQ2,DISP=SHR//SYSIN DD *GENERATE MAXFLDS=1RECORD FIELD=(80,1,,1)/*//* ==========================================================//* UNLOAD PROGRAM SOURCE TO A SEQ FB FILE WITH LRECL 255//* ==========================================================//CPYSRCE EXEC PGM=IEBGENER,COND=(0,LT)//SYSPRINT DD SYSOUT=*//SYSUT1 DD DISP=SHR,DSN=HLQ.MLQ.LIBR.PDSE.VB255(L255RECL)//SYSUT2 DD DSN=HLQ.MLQ.LIBR.MEM,DISP=SHR//SYSIN DD *GENERATE MAXFLDS=1RECORD FIELD=(255,1,,1)/*//* ==========================================================//* PERFORM THE CA LIBRARIAN ADD FUNCTION//* ==========================================================//INDEX EXEC PGM=AFOLIBR,PARM='NRJS,NJTA',COND=(0,LT)//SYSPRINT DD SYSOUT=*//INDEX DD SYSOUT=*//MASTER DD DISP=SHR,DSN=HLQ.MLQ.TESTWRMF//OSJOB DD DUMMY//SYSIN DD DISP=SHR,DSN=HLQ.MLQ.LIBR.SEQ2// DD DISP=SHR,DSN=HLQ.MLQ.LIBR.MEM// DD *-EMOD-END/*//