Can REXX routines that are VB lrecl 255 be managed in CA Librarian?

Products

• CA Librarian

Issue/Introduction

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? 

Environment

z/OS

Resolution

1)  Need to create a Librarian Language type for REXX so the line numbers don't overwrite the REXX code.

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.

 

2)  Need to create a Wide Record type Master file to support the 255 length records.

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.

 

3)   Once the ELIPGEN is done and WRMF created, can use the following job to add the REXX code from the VB 255 LRECL file to the WRMF:

 

//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=1                                            

     RECORD    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=1                                            

     RECORD    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                                                        

/*                                                          

//