SQL Script:

CREATE TABLE QGPL.PGMSTS ( 

STPNAM CHAR(10) CCSID 37 NOT NULL DEFAULT '' , 

STSTS NUMERIC(5, 0) NOT NULL DEFAULT 0 , 

STPSTS NUMERIC(5, 0) NOT NULL DEFAULT 0 , 

STSEQN CHAR(8) CCSID 37 NOT NULL DEFAULT '' , 

STRTNE CHAR(8) CCSID 37 NOT NULL DEFAULT '' , 

STNPRM NUMERIC(3, 0) NOT NULL DEFAULT 0 , 

STMSID CHAR(7) CCSID 37 NOT NULL DEFAULT '' , 

STODT CHAR(4) CCSID 37 NOT NULL DEFAULT '' , 

STWKMS CHAR(30) CCSID 37 NOT NULL DEFAULT '' , 

STPLIB CHAR(10) CCSID 37 NOT NULL DEFAULT '' , 

STMSG CHAR(80) CCSID 37 NOT NULL DEFAULT '' , 

STEXCP CHAR(4) CCSID 37 NOT NULL DEFAULT '' , 

STDUM1 CHAR(26) CCSID 37 NOT NULL DEFAULT '' , 

STLFIL CHAR(8) CCSID 37 NOT NULL DEFAULT '' , 

STFSTS CHAR(5) CCSID 37 NOT NULL DEFAULT '' , 

STLFOP CHAR(5) CCSID 37 NOT NULL DEFAULT '' , 

STSTSF CHAR(25) CCSID 37 NOT NULL DEFAULT '' , 

STJOB CHAR(10) CCSID 37 NOT NULL DEFAULT '' , 

STUSER CHAR(10) CCSID 37 NOT NULL DEFAULT '' , 

STJOBN NUMERIC(6, 0) NOT NULL DEFAULT 0 , 

STJDAT NUMERIC(6, 0) NOT NULL DEFAULT 0 , 

STSDAT NUMERIC(6, 0) NOT NULL DEFAULT 0 , 

STSTIM NUMERIC(6, 0) NOT NULL DEFAULT 0 , 

STCDAT NUMERIC(6, 0) NOT NULL DEFAULT 0 , 

STCTIM NUMERIC(6, 0) NOT NULL DEFAULT 0 , 

STCLVL CHAR(4) CCSID 37 NOT NULL DEFAULT '' , 

STSRCF CHAR(10) CCSID 37 NOT NULL DEFAULT '' , 

STSRCL CHAR(10) CCSID 37 NOT NULL DEFAULT '' , 

STSRCM CHAR(10) CCSID 37 NOT NULL DEFAULT '' )   

RCDFMT STATUS     ; 

LABEL ON TABLE QGPL.PGMSTS 

IS 'Progam Status data structure definition' ; 

LABEL ON COLUMN QGPL.PGMSTS 

( STPNAM IS 'Program name' , 

STSTS IS 'Status as a code fie' , 

STPSTS IS 'Previous status code' , 

STSEQN IS 'Rpg source stmt sequ' , 

STRTNE IS 'Rpg routine name' , 

STNPRM IS 'Number of parameters' , 

STMSID IS 'Exception Msgid' , 

STODT IS 'Mi/odt machine instr' , 

STWKMS IS 'Work area for messag' , 

STPLIB IS 'Name of library wher' , 

STMSG IS 'Messages when Ststs' , 

STEXCP IS 'Exception Id' , 

STDUM1 IS 'Dummy field for unus' , 

STLFIL IS 'Name of file for las' , 

STFSTS IS 'File status error co' , 

STLFOP IS 'Last file operation' , 

STSTSF IS 'Status info on last' , 

STJOB IS 'Job name' , 

STUSER IS 'User name' , 

STJOBN IS 'Job number' , 

STJDAT IS 'Job date in Udate fo' , 

STSDAT IS 'System date of job s' , 

STSTIM IS 'System time of job r' , 

STCDAT IS 'Compile date in Udat' , 

STCTIM IS 'Compile time in hhmm' , 

STCLVL IS 'Compiler level' , 

STSRCF IS 'Source file name' , 

STSRCL IS 'Source library name' , 

STSRCM IS 'Source member name' ) ; 

LABEL ON COLUMN QGPL.PGMSTS 

( STPNAM TEXT IS 'Program name' , 

STSTS TEXT IS 'Status as a code field' , 

STPSTS TEXT IS 'Previous status code' , 

STSEQN TEXT IS 'Rpg source stmt sequence' , 

STRTNE TEXT IS 'Rpg routine name' , 

STNPRM TEXT IS 'Number of parameters pass' , 

STMSID TEXT IS 'Exception Msgid' , 

STODT TEXT IS 'Mi_odt machine instructio' , 

STWKMS TEXT IS 'Work area for messages' , 

STPLIB TEXT IS 'Name of library where pro' , 

STMSG TEXT IS 'Messages when Ststs _ 999' , 

STEXCP TEXT IS 'Exception Id' , 

STDUM1 TEXT IS 'Dummy field for unused po' , 

STLFIL TEXT IS 'Name of file for last fil' , 

STFSTS TEXT IS 'File status error code' , 

STLFOP TEXT IS 'Last file operation used' , 

STSTSF TEXT IS 'Status info on last file' , 

STJOB TEXT IS 'Job name' , 

STUSER TEXT IS 'User name' , 

STJOBN TEXT IS 'Job number' , 

STJDAT TEXT IS 'Job date in Udate format' , 

STSDAT TEXT IS 'System date of job start' , 

STSTIM TEXT IS 'System time of job runnin' , 

STCDAT TEXT IS 'Compile date in Udate for' , 

STCTIM TEXT IS 'Compile time in hhmmss fo' , 

STCLVL TEXT IS 'Compiler level' , 

STSRCF TEXT IS 'Source file name' , 

STSRCL TEXT IS 'Source library name' , 

STSRCM TEXT IS 'Source member name' ) ; 

GRANT ALTER , DELETE , INDEX , INSERT , REFERENCES , SELECT , UPDATE   

ON QGPL.PGMSTS TO PUBLIC WITH GRANT OPTION ;