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
/* 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
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