Joined: 28 Nov 2006 Posts: 305 Location: Deerfield IL
How could I code in REXX the equivalent of the following JCL:
//INFILE DD DSN=HLQ.PANLIB(ABCDEFGH),DISP=SHR,SUBSYS=PANV
or
//INFILE DD DSN=HLQ.PRODPAN,DISP=SHR,SUBSYS=(PANV,,ABCDEFGH)
I tried Altfile with the following results:
Code:
11 *-* "ALLOCATE DDNAME(INFILE) SHR " ,
" DSNAME('HLQ.PANLIB(ABCDEFGH)') ALTFILE(PANV)"
>>> "ALLOCATE DDNAME(INFILE) SHR DSNAME('HLQ.PANLIB(ABCDEFGH)') ALTF
ILE(PANV)"
FILE INFO-RETRIEVAL NOT PERFORMED, IS NOT ALLOCATED
+++ RC(12) +++
I have tried many way and done searches on these Forums and the web , but I have not found how to get this to work.
Joined: 28 Nov 2006 Posts: 305 Location: Deerfield IL
Thank you. I got it working. Here is a sample.
Code:
//* REXX PANSUBS ICEGENER USING SUBSYS PANV TO RETRIEVE FROM PAN */
/* ************************************************************* */
/* //STEP10 EXEC PGM=ICEGENER */
/* //SYSUT1 DD DSN=HLQ.PANLIB,DISP=SHR,SUBSYS=(PANV,,HLQ1781) */
/* //SYSUT2 DD DSN=HLQ.A.Z,DISP=OLD */
/* //SYSPRINT DD SYSOUT=* */
/* //SYSIN DD DUMMY */
/* ************************************************************* */
"FREE FI(SYSUT1 SYSUT2 SYSPRINT SYSIN)"
"ALLOC FI(SYSUT2) DA('HLQ.A.Z')"
"ALLOC FI(SYSPRINT) DA(*)"
"ALLOC FI(SYSIN) DUMMY"
SAY '--------------------------------------------------------------
IF BPXWDYN(,
"ALLOC FI(SYSUT1) DA(HLQ.PANLIB) SHR SUBSYS(PANV,,HLQ1781)",
) = 0 THEN DO
SAY 'PANLIB ALLOC OK <===='
END
ELSE DO
SAY 'PANLIB ALLOC FAILED <===='
DO I = 1 TO S99MSG.0
SAY I S99MSG.I
END
END
SAY '----------------------------------------------------------------'
ADDRESS LINKMVS "ICEGENER"
SAY '----------------------------------------------------------------'
"FREE FI(SYSUT1 SYSUT2 SYSPRINT SYSIN)"