Lector de Feeds

z/OS Install and configure RMF Distributed Data Server

Configure RMF Distributed Data Server:

PERMIT BPX.DAEMON CLASS(FACILITY) ID(START2) ACCESS(READ) RDEFINE APPL GPMSERVE UACC(READ) RDEFINE PROGRAM GPM* ADDMEM('SYS1.SERBLINK'//NOPADCHK) UACC(READ) RDEFINE PROGRAM ERB* ADDMEM('SYS1.SERBLINK'//NOPADCHK) UACC(READ) RDEFINE PROGRAM CEEBINIT ADDMEM('CEE.SCEERUN'//NOPADCHK) UACC(READ) RDEFINE PROGRAM IEEMB878 ADDMEM('SYS1.LINKLIB'//NOPADCHK) UACC(READ) RDEFINE PROGRAM GPMDDSRV ADDMEM('SYS1.SERBLINK'//NOPADCHK) UACC(READ) RDEFINE PROGRAM ADME000O ADDMEM('GDDM.SADMMOD'//NOPADCHK) UACC(READ) SETROPTS WHEN(PROGRAM) REFRESH

START DDS, RMF and RMFGAT (commands in console or SDSF panel)

/S GPMSERVE /S RMF /F RMF,START III

Now download and install the RMF pm for Windows or Linux.

Once installed, execute and connect to your z/OS system. You must view something similar to that:

z/OS SUBMIT JOBS in FTP

List datasets...

ftp> dir 200 Port request OK. 125 List started OK Name VV.MM Created Changed Size Init Mod Id HELLO 01.01 2013/10/22 2013/10/24 22:06 13 13 1 CAPI HELLO2 01.02 2013/10/22 2013/10/24 22:06 13 12 5 CAPI LISTDS 01.02 2013/10/22 2013/10/24 22:07 15 10 8 CAPI MSGCON 01.01 2013/10/22 2013/10/24 22:07 8 8 1 CAPI 250 List completed successfully.

Now change to JES2 mode

ftp> QUOTE SITE FILETYPE=JES 200 SITE command was accepted

Now (in JES mode) when we GET a dataset, really we make a SUBMIT.

ftp> GET 'CAPI.JCL.TEST(HELLO)' 200 Port request OK. 125-Submitting job 'CAPI.JCL.TEST(HELLO)' FIXrecfm 80 125 When JOB00865 is done, will retrieve its output

z/OS CLIST tutorial (DRAFT) CLIST

1. Language definition:

1.0 Comments

/* THIS IS A COMMENT */

1.1 Header

PROC 0 /* PROC [NUM PARAMETERS] */ PROC 1 XXXXXXXX /* New rutine PARAMETER1 = XXXXXXXX */

1.2 Variables

PROC 1 INPUT SET VARIABLE = &INPUT SET STRING = HELLO WORLD

1.3 Conditional

IF &VARIALBE = TEST THEN + WRITE TEST ELSE IF &VARIABLE = PROD THEN + WRITE PROD ELSE IF &VARIABLE ¬= NEGA THEN + WRITE OTHR ELSE DO + WRITE ERR1 EXIT END

1.4 While

SET WHILE = &STR(ABC) DO UNTIL &WHILE = &STR(ABC) WHILE (&COUNT<5) SET &COUNT = &COUNT + 1 END

1.5 Strings

IF &SUBSTR(1:4,&SYSUID) ¬= TEST AND + &SUBSTR(1:3,&SYSUID) ¬= DEV AND THEN DO WRITE "NOT ALLOWED" END

1.6 Execute commands

LISTUSER SELECT PGM(ISRUDL) PARM(ISRUDLP) SCRNAME(DSLIST)

1.7 ISPF panels

ISPEXEC SELECT PANEL(XXX)

1. Execute a CLIST

2.0 TSO EXEC

TSO EXEC 'DATASET.CLIST(PROGRAM)'

2.1 Alloc to SYSPROC

TSO ALLOC FILE(SYSPROC) DATASET('DATASET.CLIST') SHR REUSE TSO %PROGRAM

z/OS create user (DRAFT) RACF panel parameters Change Account (ACCTNUM) ACCT#________________________________ Change Logon Procedure Name (PROC) ISPFPROC Change Command (COMMAND) ISPF____________________________________ User permits TSO PE ACCT# CLASS(ACCTNUM) ID(WEBSRV) ACCESS(READ) TSO PE ACCT CLASS(TSOAUTH) ID(WEBSRV) ACCESS(READ) TSO PE JCL CLASS(TSOAUTH) ID(WEBSRV) ACCESS(READ) TSO PE OPER CLASS(TSOAUTH) ID(WEBSRV) ACCESS(READ)