zOs/SQL/CATCOLIN

$#@
call sqlConnect
$;
$@=[
select tbCreator cr, tbName tb, name col, colNo,colType type, length len
    from sysibm.syscolumns
    where tbCreator = 'SYSIBM' and tbName like 'SYSCOLUM%'
    order by tbCreator, tbName, colNo
$]
$| call sqlSel
$|  curTb = ''
    $@forWith o $@[
        if curTb \= strip($CR)'.'strip($TB) then do
            curTb = strip($CR)'.'strip($TB)
            call out '***' curTb
            end
        call out f('@COLNO%4i @COL%-30C @TYPE%-8C @LEN%5i', $.$o)
        $]
$#out                                              20130201 09:50:18
*** SYSIBM.SYSCOLUMNS
   1 NAME                           VARCHAR    128
   2 TBNAME                         VARCHAR    128
   3 TBCREATOR                      VARCHAR    128
   4 COLNO                          SMALLINT     2
   5 COLTYPE                        CHAR         8
   6 LENGTH                         SMALLINT     2
   7 SCALE                          SMALLINT     2
   8 NULLS                          CHAR         1
   9 COLCARD                        INTEGER      4
  10 HIGH2KEY                       VARCHAR   2000
  11 LOW2KEY                        VARCHAR   2000
  12 UPDATES                        CHAR         1
  13 IBMREQD                        CHAR         1
  14 REMARKS                        VARCHAR    762
  15 DEFAULT                        CHAR         1
  16 KEYSEQ                         SMALLINT     2
  17 FOREIGNKEY                     CHAR         1
  18 FLDPROC                        CHAR         1
  19 LABEL                          VARCHAR     90
  20 STATSTIME                      TIMESTMP    10
  21 DEFAULTVALUE                   VARCHAR   1536
  22 COLCARDF                       FLOAT        8
  23 COLSTATUS                      CHAR         1
  24 LENGTH2                        INTEGER      4
  25 DATATYPEID                     INTEGER      4
  26 SOURCETYPEID                   INTEGER      4
  27 TYPESCHEMA                     VARCHAR    128
  28 TYPENAME                       VARCHAR    128
  29 CREATEDTS                      TIMESTMP    10
  30 STATS_FORMAT                   CHAR         1
  31 PARTKEY_COLSEQ                 SMALLINT     2
  32 PARTKEY_ORDERING               CHAR         1
  33 ALTEREDTS                      TIMESTMP    10
  34 CCSID                          INTEGER      4
  35 HIDDEN                         CHAR         1
  36 RELCREATED                     CHAR         1
  37 CONTROL_ID                     INTEGER      4
  38 XML_TYPEMOD_ID                 INTEGER      4
  39 PERIOD                         CHAR         1
  40 GENERATED_ATTR                 CHAR         1
  41 HASHKEY_COLSEQ                 SMALLINT     2
*** SYSIBM.SYSCOLUMNS_HIST
   1 NAME                           VARCHAR    128
   2 TBNAME                         VARCHAR    128
   3 TBCREATOR                      VARCHAR    128
   4 COLNO                          SMALLINT     2
   5 COLTYPE                        CHAR         8
   6 LENGTH                         SMALLINT     2
   7 LENGTH2                        INTEGER      4
   8 NULLS                          CHAR         1
   9 HIGH2KEY                       VARCHAR   2000
  10 LOW2KEY                        VARCHAR   2000
  11 STATSTIME                      TIMESTMP    10
  12 COLCARDF                       FLOAT        8
  13 IBMREQD                        CHAR         1
  14 STATS_FORMAT                   CHAR         1
*** SYSIBM.SYSCOLUMNS_SHORT_VIEW
   1 NAME                           CHAR        18
   2 TBNAME                         CHAR        18
   3 TBCREATOR                      CHAR        18
   4 COLNO                          SMALLINT     2
   5 COLTYPE                        CHAR         8
   6 LENGTH                         SMALLINT     2
   7 SCALE                          SMALLINT     2
   8 NULLS                          CHAR         1
   9 COLCARD                        INTEGER      4
  10 HIGH2KEY                       CHAR        18
  11 LOW2KEY                        CHAR        18
  12 UPDATES                        CHAR         1
  13 IBMREQD                        CHAR         1
  14 REMARKS                        CHAR        18
  15 DEFAULT                        CHAR         1
  16 KEYSEQ                         SMALLINT     2
  17 FOREIGNKEY                     CHAR         1
  18 FLDPROC                        CHAR         1
  19 LABEL                          CHAR        18
  20 STATSTIME                      TIMESTMP    10
  21 DEFAULTVALUE                   CHAR        18
  22 COLCARDF                       FLOAT        8
  23 COLSTATUS                      CHAR         1
  24 LENGTH2                        INTEGER      4
  25 DATATYPEID                     INTEGER      4
  26 SOURCETYPEID                   INTEGER      4
  27 TYPESCHEMA                     CHAR        18
  28 TYPENAME                       CHAR        18
  29 CREATEDTS                      TIMESTMP    10
  30 STATS_FORMAT                   CHAR         1
  31 PARTKEY_COLSEQ                 SMALLINT     2
  32 PARTKEY_ORDERING               CHAR         1
  33 ALTEREDTS                      TIMESTMP    10
  34 CCSID                          INTEGER      4
  35 HIDDEN                         CHAR         1
$#out                                              20130201 09:49:34
*** SYSIBM.SYSCOLUMNS
   1 NAME                 VARCHAR    128
   2 TBNAME               VARCHAR    128
   3 TBCREATOR            VARCHAR    128
   4 COLNO                SMALLINT     2
   5 COLTYPE              CHAR         8
   6 LENGTH               SMALLINT     2
   7 SCALE                SMALLINT     2
   8 NULLS                CHAR         1
   9 COLCARD              INTEGER      4
  10 HIGH2KEY             VARCHAR   2000
  11 LOW2KEY              VARCHAR   2000
  12 UPDATES              CHAR         1
  13 IBMREQD              CHAR         1
  14 REMARKS              VARCHAR    762
  15 DEFAULT              CHAR         1
  16 KEYSEQ               SMALLINT     2
  17 FOREIGNKEY           CHAR         1
  18 FLDPROC              CHAR         1
  19 LABEL                VARCHAR     90
  20 STATSTIME            TIMESTMP    10
  21 DEFAULTVALUE         VARCHAR   1536
  22 COLCARDF             FLOAT        8
  23 COLSTATUS            CHAR         1
  24 LENGTH2              INTEGER      4
  25 DATATYPEID           INTEGER      4
  26 SOURCETYPEID         INTEGER      4
  27 TYPESCHEMA           VARCHAR    128
  28 TYPENAME             VARCHAR    128
  29 CREATEDTS            TIMESTMP    10
  30 STATS_FORMAT         CHAR         1
  31 PARTKEY_COLSEQ       SMALLINT     2
  32 PARTKEY_ORDERING     CHAR         1
  33 ALTEREDTS            TIMESTMP    10
  34 CCSID                INTEGER      4
  35 HIDDEN               CHAR         1
  36 RELCREATED           CHAR         1
  37 CONTROL_ID           INTEGER      4
  38 XML_TYPEMOD_ID       INTEGER      4
  39 PERIOD               CHAR         1
  40 GENERATED_ATTR       CHAR         1
  41 HASHKEY_COLSEQ       SMALLINT     2
*** SYSIBM.SYSCOLUMNS_HIST
   1 NAME                 VARCHAR    128
   2 TBNAME               VARCHAR    128
   3 TBCREATOR            VARCHAR    128
   4 COLNO                SMALLINT     2
   5 COLTYPE              CHAR         8
   6 LENGTH               SMALLINT     2
   7 LENGTH2              INTEGER      4
   8 NULLS                CHAR         1
   9 HIGH2KEY             VARCHAR   2000
  10 LOW2KEY              VARCHAR   2000
  11 STATSTIME            TIMESTMP    10
  12 COLCARDF             FLOAT        8
  13 IBMREQD              CHAR         1
  14 STATS_FORMAT         CHAR         1
*** SYSIBM.SYSCOLUMNS_SHORT_VIEW
   1 NAME                 CHAR        18
   2 TBNAME               CHAR        18
   3 TBCREATOR            CHAR        18
   4 COLNO                SMALLINT     2
   5 COLTYPE              CHAR         8
   6 LENGTH               SMALLINT     2
   7 SCALE                SMALLINT     2
   8 NULLS                CHAR         1
   9 COLCARD              INTEGER      4
  10 HIGH2KEY             CHAR        18
  11 LOW2KEY              CHAR        18
  12 UPDATES              CHAR         1
  13 IBMREQD              CHAR         1
  14 REMARKS              CHAR        18
  15 DEFAULT              CHAR         1
  16 KEYSEQ               SMALLINT     2
  17 FOREIGNKEY           CHAR         1
  18 FLDPROC              CHAR         1
  19 LABEL                CHAR        18
  20 STATSTIME            TIMESTMP    10
  21 DEFAULTVALUE         CHAR        18
  22 COLCARDF             FLOAT        8
  23 COLSTATUS            CHAR         1
  24 LENGTH2              INTEGER      4
  25 DATATYPEID           INTEGER      4
  26 SOURCETYPEID         INTEGER      4
  27 TYPESCHEMA           CHAR        18
  28 TYPENAME             CHAR        18
  29 CREATEDTS            TIMESTMP    10
  30 STATS_FORMAT         CHAR         1
  31 PARTKEY_COLSEQ       SMALLINT     2
  32 PARTKEY_ORDERING     CHAR         1
  33 ALTEREDTS            TIMESTMP    10
  34 CCSID                INTEGER      4
  35 HIDDEN               CHAR         1
$#out                                              20130201 09:48:28
*** SYSIBM.SYSCOLUMNS
   1 NAME             VARCHAR  128
   2 TBNAME           VARCHAR  128
   3 TBCREATOR        VARCHAR  128
   4 COLNO            SMALLINT 2
   5 COLTYPE          CHAR     8
   6 LENGTH           SMALLINT 2
   7 SCALE            SMALLINT 2
   8 NULLS            CHAR     1
   9 COLCARD          INTEGER  4
  10 HIGH2KEY         VARCHAR  2000
  11 LOW2KEY          VARCHAR  2000
  12 UPDATES          CHAR     1
  13 IBMREQD          CHAR     1
  14 REMARKS          VARCHAR  762
  15 DEFAULT          CHAR     1
  16 KEYSEQ           SMALLINT 2
  17 FOREIGNKEY       CHAR     1
  18 FLDPROC          CHAR     1
  19 LABEL            VARCHAR  90
  20 STATSTIME        TIMESTMP 10
  21 DEFAULTVALUE     VARCHAR  1536
  22 COLCARDF         FLOAT    8
  23 COLSTATUS        CHAR     1
  24 LENGTH2          INTEGER  4
  25 DATATYPEID       INTEGER  4
  26 SOURCETYPEID     INTEGER  4
  27 TYPESCHEMA       VARCHAR  128
  28 TYPENAME         VARCHAR  128
  29 CREATEDTS        TIMESTMP 10
  30 STATS_FORMAT     CHAR     1
  31 PARTKEY_COLSEQ   SMALLINT 2
  32 PARTKEY_ORDERING CHAR     1
  33 ALTEREDTS        TIMESTMP 10
  34 CCSID            INTEGER  4
  35 HIDDEN           CHAR     1
  36 RELCREATED       CHAR     1
  37 CONTROL_ID       INTEGER  4
  38 XML_TYPEMOD_ID   INTEGER  4
  39 PERIOD           CHAR     1
  40 GENERATED_ATTR   CHAR     1
  41 HASHKEY_COLSEQ   SMALLINT 2
*** SYSIBM.SYSCOLUMNS_HIST
   1 NAME             VARCHAR  128
   2 TBNAME           VARCHAR  128
   3 TBCREATOR        VARCHAR  128
   4 COLNO            SMALLINT 2
   5 COLTYPE          CHAR     8
   6 LENGTH           SMALLINT 2
   7 LENGTH2          INTEGER  4
   8 NULLS            CHAR     1
   9 HIGH2KEY         VARCHAR  2000
  10 LOW2KEY          VARCHAR  2000
  11 STATSTIME        TIMESTMP 10
  12 COLCARDF         FLOAT    8
  13 IBMREQD          CHAR     1
  14 STATS_FORMAT     CHAR     1
*** SYSIBM.SYSCOLUMNS_SHORT_VIEW
   1 NAME             CHAR     18
   2 TBNAME           CHAR     18
   3 TBCREATOR        CHAR     18
   4 COLNO            SMALLINT 2
   5 COLTYPE          CHAR     8
   6 LENGTH           SMALLINT 2
   7 SCALE            SMALLINT 2
   8 NULLS            CHAR     1
   9 COLCARD          INTEGER  4
  10 HIGH2KEY         CHAR     18
  11 LOW2KEY          CHAR     18
  12 UPDATES          CHAR     1
  13 IBMREQD          CHAR     1
  14 REMARKS          CHAR     18
  15 DEFAULT          CHAR     1
  16 KEYSEQ           SMALLINT 2
  17 FOREIGNKEY       CHAR     1
  18 FLDPROC          CHAR     1
  19 LABEL            CHAR     18
  20 STATSTIME        TIMESTMP 10
  21 DEFAULTVALUE     CHAR     18
  22 COLCARDF         FLOAT    8
  23 COLSTATUS        CHAR     1
  24 LENGTH2          INTEGER  4
  25 DATATYPEID       INTEGER  4
  26 SOURCETYPEID     INTEGER  4
  27 TYPESCHEMA       CHAR     18
  28 TYPENAME         CHAR     18
  29 CREATEDTS        TIMESTMP 10
  30 STATS_FORMAT     CHAR     1
  31 PARTKEY_COLSEQ   SMALLINT 2
  32 PARTKEY_ORDERING CHAR     1
  33 ALTEREDTS        TIMESTMP 10
  34 CCSID            INTEGER  4
  35 HIDDEN           CHAR     1
$#out                                              20130201 09:42:35