REXX SETUP -- How to setup Rexx -- A Guide for Beginners

-
REXX SETUP 

1)      TSO EX 'USERID.REXX.EXEC(HELLO)' EX---- directly running from the TSO panel
2)      EX 'USERID.REXX.EXEC(HELLO)' EX – directly running from the ready panel


When you logon to ISPF, ISPF assigns a pre-defined set of DDNames to few PDS datasets. To view this set, you can enter the command TSO ISRDDN from the ISPF panel.

DDNAME     DATA SET NAME

SYSEXEC     PROD.CEXEC
SYSPROC    USERID.CLIST


There are two ways to do this:
1) If your system adminstrator allows, you can run a CLIST or REXX program when you logon to ISPF. This will usually appear as a message when you logon. Ask you system admin if you can do this, as this is the best way to do this.
If it is a CLIST, add the following command in the CLIST,

CONCATD FI(SYSEXEC) DA('USERID.REXX.EXEC')

If it is a REXX, add the following command,

"ALLOC FILE(SYSEXEC) DATASET("'USERID.REXX.EXEC'","'isp.rexx.exec') SHR REUSE"

2) If the system admin does not allow running a REXX/CLIST, then execute the following command one time in your ISPF session.

TSO ALTLIB ACTIVATE APPL(EXEC) DSN('USERID.YYYYY.rexx')




Comments

Post a Comment

Popular posts from this blog

Date/time constants in JCL

-
You can use DATE, DATE=(abcd), DATENS=(abc), YDDD=(abc) and YDDDNS=(ab) to generate CH/ZD constants for the current data (that is, today's date) as follows: DATE creates a constant in the form C'mm/dd/yy' which on March 15, 2005 would be C'03/15/04'. DATE=(abcd) creates a constant in the form C'adbdc' where a, b and c can be M for mm, D for dd, Y for yy or 4 for yyyy, and d is the separator character. For example, DATE=(DM4.) creates C'dd. mm.yyyy’ which on March 15, 2005 would be C'15. 03.2005’. DATENS=(abc) creates a constant in the form C'abc' where a, b and c can be M for mm, D for dd, Y for yy or 4 for yyyy. For example, DATE=(DMY) creates C'ddmmyy' which on March 15, 2005 would be C'150304'. YDDD=(abc) creates a constant in the form C'acb' where a and b can be D for ddd, Y for yy or 4 for yyyy, and c is the separator character. For example, YDDD=(...
Read more

JCL ABeND --

-
   The below job produces the dump . //HWINS01A JOB (HW213AB99T,PGRN,1,1,0),'KEN CALDWELL',NOTIFY=&SYSUID,                                               //*                                                           //JOBLIB  DD DSN=&SYSUID..JCLADV.LOAD,DISP=SHR                   //*                                                                    //STEP1   EXEC PGM=PGMABEND                        ...
Read more

IEBGENER usage examples

-
• Copy datasets //STEPCOPY EXEC PGM=IEBGENER //SYSUT1   DD DSN=G1SG00AT.OLDFILE1,DISP=SHR //SYSUT2   DD DSN=G1SG00AT.NEWFILE, //         DISP=(NEW,CATLG,DELETE), //         UNIT=SYSDA, //         SPACE=(CYL(2,2),RLSE), //         DCB=(LRECL=80,BLKSIZE=0,RECFM=FB,DSORG=PS), //         MGMTCLAS=TSONORM //SYSPRINT DD SYSOUT=* //SYSOUT   DD SYSOUT=* //SYSIN    DD DUMMY Index • Concatenate datasets //STEPCONC EXEC PGM=IEBGENER //SYSUT1   DD DSN=G1SG00AT.OLDFILE1,DISP=SHR //         DD DSN=G1SG00AT.OLDFILE2,DISP=SHR //         DD DSN=G1SG00AT.OLDFILE3,DISP=SHR //SYSUT2   DD DSN=G1SG00AT.NEWFILE, //         DISP=(NEW,CATLG,DELETE), //         UNIT=SYSDA, //         SPACE=(CYL(2,2),RLSE), //         DCB=(LRECL=80,BL...
Read more