ISPF Table not getting created



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

ISPF Table not getting created

Postby Quasar » 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
/* 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
Quasar Chunawala,
Software Engineer, Lives at Borivali, Mumbai
User avatar
Quasar
 
Posts: 102
Joined: Wed Nov 10, 2010 7:11 pm
Location: Borivali, Mumbai
Has thanked: 13 times
Been thanked: 2 times

Re: ISPF Table not getting created

 

Re: ISPF Table not getting created

Postby Quasar » 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.
Quasar Chunawala,
Software Engineer, Lives at Borivali, Mumbai
User avatar
Quasar
 
Posts: 102
Joined: Wed Nov 10, 2010 7:11 pm
Location: Borivali, Mumbai
Has thanked: 13 times
Been thanked: 2 times


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post