1.9.3 COBOL言語での展開形

SQL連絡領域の展開形を次に示します。

       01 SQLCA IS EXTERNAL SYNCHRONIZED.
          02 SQLCAID  PIC X(8).
          02 FILLER   REDEFINES SQLCAID.
             03 SQLCAIDC  PIC X(5).
             03 SQLCAIDS  PIC X(2).
             03 SQLCAIDE  PIC X.
          02 SQLCABC PIC S9(18) COMP.
          02 SQLCODE PIC S9(18) COMP.
          02 SQLERRM.
             03 SQLERRML  PIC S9(4) COMP.
             03 SQLERRMC  PIC X(510).
          02 SQLERRP  PIC X(8).
          02 SQLERRD  PIC S9(18) COMP OCCURS 6 TIMES.
          02 SQLWARN.
             03 SQLWARN0 PIC X.
             03 SQLWARN1 PIC X.
             03 SQLWARN2 PIC X.
             03 SQLWARN3 PIC X.
             03 SQLWARN4 PIC X.
             03 SQLWARN5 PIC X.
             03 SQLWARN6 PIC X.
             03 SQLWARN7 PIC X.
          02 SQLEXT.
             03 SQLWARN8 PIC X.
             03 SQLWARN9 PIC X.
             03 SQLWARNA PIC X.
             03 SQLWARNB PIC X.
             03 SQLWARNC PIC X.
             03 SQLWARND PIC X.
             03 SQLWARNE PIC X.
             03 SQLWARNF PIC X.
          02 SQLCASYS1 PIC X(16).