SACASCP (Totally/Fully Free RPG)

RUNSQLSTM SRCFILE(QSQLSRC) SRCMBR(SACASCP)

 QSQLSRC   SQLTABL   SACASCP   Account Status Codes
12001221107211200122094253
-- DEFINE TABLE HERE
   CREATE TABLE "AccountStatusCodes" for system name SACASCP
   (
      "StatusCode"                   FOR COLUMN  SACASC,
      "StatusDescription"            FOR COLUMN  SACASD,
      "StatusDefinition"             FOR COLUMN  SACASF,
      "AdverseClosure"               FOR COLUMN  SACASA,
      "PositiveClosure"              FOR COLUMN  SACASP,
      "Closure"                      FOR COLUMN  SACASE,
      "RepeatEver"                   FOR COLUMN  SACASR,
      "RepeatMonthonMonth"           FOR COLUMN  SACASM,
      "D/MorBoth"                    FOR COLUMN  SACASB,
      "DateCreated"                  FOR COLUMN  ISODAT,
      "CreatorUserID"                FOR COLUMN  UID
   )
   AS (SELECT
       SACASC,
       SACASD,
       SACASF,
       SACASA,
       SACASP,
       SACASE,
       SACASR,
       SACASM,
       SACASB,
       ISODAT,
       UID
   FROM DICTIONARY
   )
   WITH NO DATA
   RCDFMT SACASCPR
   ;
   ALTER TABLE SACASCP ADD CONSTRAINT SACASCP_K1 PRIMARY KEY
   (SACASC)
   ;
   ALTER TABLE SACASCP ADD CONSTRAINT SACASCP_U1 UNIQUE (SACASD)
   ;
-- DEFINE LABELS HERE - TABLE
   LABEL ON TABLE SACASCP IS 'Account Status Codes'
   ;
-- DEFINE COLUMN LABELS HERE
   LABEL ON COLUMN SACASCP (
      SACASC     TEXT IS 'Status Code'                               ,
      SACASD     TEXT IS 'Status Description'                        ,
      SACASF     TEXT IS 'Status Definition'                         ,
      SACASA     TEXT IS 'Adverse Closure'                           ,
      SACASP     TEXT IS 'Positive Closure'                          ,
      SACASE     TEXT IS 'Closure'                                   ,
      SACASR     TEXT IS 'Repeat EverCode'                           ,
      SACASM     TEXT IS 'Repeat Month on Month'                     ,
      SACASB     TEXT IS 'D/M or Both'                               ,
      ISODAT     TEXT IS 'Date Created'                              ,
      UID        TEXT IS 'Creator User ID'
   );
   LABEL ON COLUMN SACASCP (
      SACASC          IS 'Status              Code',
      SACASD          IS 'Status              Description',
      SACASF          IS 'Status              Definition',
      SACASA          IS 'Adverse             Closure',
      SACASP          IS 'Positive            Closure',
      SACASE          IS 'Closure',
      SACASR          IS 'Repeat              Ever',
      SACASM          IS 'Repeat              Month on            Month',
      SACASB          IS 'D/M                 or                  Both',
      ISODAT          IS 'Date                Created',
      UID             IS 'Creator             User ID'
   );