IBM Mainframe Forum

Posted: **Sun Aug 19, 2012 5:47 pm**

Hi,

I am trying to create some ISPF Tables. I have written the following Rexx EXEC to do so. In spite of the fact, that I am LIBDEF'ing my Table-Library, I do not see any table called EMPLOYEE getting created in my PDS 'SYSADM.DB2.EDITOR.ISPTLIB'. What's wrong?

Rexx Code

Select all

/* REXX */

ADDRESS ISPEXEC
"LIBDEF ISPTLIB DATASET ID('SYSADM.DB2.EDITOR.ISPTLIB') STACK"

ADDRESS ISPEXEC
"TBCREATE EMPLOYEE NAMES(ACT EMPID NAME DEPT)",
"WRITE REPLACE SHARE"
SAY 'TBCREATE RETURN CODE = ' RC

IF RC > 4 & RC \= 12 THEN DO
SAY 'TABLE ERROR : EMPLOYEE TBCREATE ERROR'
EXIT
END

ACT = '...'
EMPID = 00001
NAME = 'RAM'
DEPT = 'HR'

ADDRESS ISPEXEC "TBADD EMPLOYEE"

EMPID = 00002
NAME = 'RAJ'
DEPT = 'HR'

ADDRESS ISPEXEC "TBADD EMPLOYEE"
SAY 'TBADD_RC = ' RC

EMPID = 00003
NAME = 'RAKESH'
DEPT = 'MARKETING'

ADDRESS ISPEXEC "TBADD EMPLOYEE"

EMPID = 00004
NAME = 'RAVI'
DEPT = 'MARKETING'

ADDRESS ISPEXEC "TBADD EMPLOYEE"

EMPID = 00005
NAME = 'RAJESH'
DEPT = 'FINANCE'

ADDRESS ISPEXEC "TBADD EMPLOYEE"

EMPID = 00006
NAME = 'ROMEO'
DEPT = 'FINANCE'

ADDRESS ISPEXEC "TBADD EMPLOYEE"

ADDRESS ISPEXEC "TBCLOSE EMPLOYEE"
SAY 'TBCLOSE_RC = ' RC

Thanks,
Quasar

Posted: **Sun Aug 19, 2012 5:54 pm**

Upon searching the forums, I found that the Output Table should get created under ISPTABL Datasets, and so it did. Thanks anyways.

IBM Mainframe Forum

ISPF Table not getting created

ISPF Table not getting created

Re: ISPF Table not getting created