//PDSLOAD JOB (1),'RELOAD REXX',CLASS=A,MSGCLASS=X //* //PDSLOAD EXEC PGM=PDSLOAD,PARM='NEW' //SYSPRINT DD SYSOUT=* //SYSUT2 DD DISP=SHR,DSN=SYS2.EXEC <-- TARGET //SYSIN DD DATA,DLM='><' ./ ADD NAME=ASTEMTMP /* REXX Script: ASTEMTMP Purpose: Allocates temporary dataset for stem variables Author: Jay Moseley If STEMTMP DD name is allocated, return. If USERID().TEMPSTEM exists, allocate to STEMTMP and return. Create USERID().TEMPSTEM, allocate to STEMTMP and return. */ CALL listalc 'NOPRINT'; DO ix=1 BY 1 TO listalcDDN.0 IF STRIP(listalcDDN.ix) == 'STEMTMP' THEN DO RETURN 0; END; END; tempstem_dsn = QUOTE(USERID() || '.TEMPSTEM'); IF EXISTS(tempstem_dsn) THEN DO rc = ALLOCATE(STEMTMP,tempstem_dsn); RETURN rc; END; tempstem_atr = 'RECFM=FB,LRECL=150,BLKSIZE=9300,' || , 'UNIT=SYSDA,PRI=30,SEC=30'; rc = CREATE(tempstem_dsn,tempstem_atr); IF rc \= 0 THEN RETURN rc; rc = ALLOCATE(STEMTMP,tempstem_dsn); RETURN rc; ./ ENDUP >< /* //