.CM  SCRIPT , Version - 1.1 , last edited by holger
.pa
.ad 8
.bm 8
.fm 4
.bt $Copyright (c) 1997-2004 SAP AG$$Page %$
.tm 12
.hm 6
.hs 3
.TT 1 $SQL$Project Distributed Database System$VIN20$
.tt 2 $$$
.TT 3 $$SQLDB-command-interface$1997-06-20$
***********************************************************
.nf

.nf


    ========== licence begin  GPL
    Copyright (c) 1997-2004 SAP AG

    This program is free software; you can redistribute it and/or
    modify it under the terms of the GNU General Public License
    as published by the Free Software Foundation; either version 2
    of the License, or (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
    ========== licence end

.fo


.fo
.nf
.sp
MODULE  : SQLDB-command-interface
=========
.sp
Purpose : Ease of use for the sql packet (logical side)
.CM *-END-* purpose -------------------------------------
.sp
.cp 3
Define  :
 
&       ifndef INLINK
        PROCEDURE
              i20connect (
                    VAR charsetname : tsp00_KnlIdentifier;
                    VAR status      : tin_connect_status);
 
        PROCEDURE
              i20dbnoreset;
 
        PROCEDURE
              i20disconnect;
 
        PROCEDURE
              i20oldsenderid;
 
        PROCEDURE
              i20rebuild_session (
                    VAR status : tin_connect_status);
 
        PROCEDURE
              i20release;
 
        PROCEDURE
              i20senderid (
                    compid : tsp00_C3);
 
        PROCEDURE
              i20setdbno (
                    VAR symbolicdbname : tsp00_DbName;
                    VAR switch_rc      : tin_connect_status );
 
        PROCEDURE
              i20alternativesegment (
                    switch_stat : tin_switch_type );
 
        PROCEDURE
              i20ansimsgtext (
                    VAR msg : tin_screenline);
 
        FUNCTION
              i20buflen : tsp00_Int4;
 
        PROCEDURE
              i20check_stmt (
                    is_unicode    : boolean;
                    VAR statement : tin_check_sql);
 
        PROCEDURE
              i20chngargcount (
                    argcount  : tsp00_Int2);
 
        PROCEDURE
              i20chngattributes (
                    attributes  : tsp1_part_attr);
 
        PROCEDURE
              i20chngcodetype (
                    mess_code : tsp00_CodeType);
 
        PROCEDURE
              i20chngcommit (
                    commit    : boolean);
 
        PROCEDURE
              i20chngcostwarn (
                    costwarn  : boolean);
 
        PROCEDURE
              i20chnginfo (
                    with_info : boolean);
 
        PROCEDURE
              i20chngmasscmd (
                    is_masscmd  : boolean);
 
        PROCEDURE
              i20chngmesstype (
                    messtype  : tsp1_cmd_mess_type);
 
        PROCEDURE
              i20chngmode (
                    sqlmode   : tsp1_sqlmode);
 
        PROCEDURE
              i20chngpartkind (
                    part_kind : tsp1_part_kind);
 
        PROCEDURE
              i20chngproducer (
                    producer  : tsp1_producer);
 
        PROCEDURE
              i20dbcrash;
 
        FUNCTION
              i20dbok : boolean;
 
        PROCEDURE
              i20errortext (
                    VAR msg : tin_screenline);
 
        PROCEDURE
              i20fetchrest;
 
        PROCEDURE
              i20findpart (
                    part_kind : tsp1_part_kind);
 
        FUNCTION
              i20existpart (
                    part_kind : tsp1_part_kind) : boolean;
 
        PROCEDURE
              i20finish_part;
 
        PROCEDURE
              i20gbuf (
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    val_pos  : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i20g1buf (
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    val_pos  : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i20g2buf (
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    val_pos  : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i20g3buf (
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    val_pos  : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i20g4buf (
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    val_pos  : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i20g5buf (
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    val_pos  : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i20gbval (
                    l_val       : tin_natural;
                    b_pos       : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20g1bval (
                    l_val       : tin_natural;
                    b_pos       : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20g2bval (
                    l_val       : tin_natural;
                    b_pos       : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20g3bval (
                    l_val       : tin_natural;
                    b_pos       : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20g4bval (
                    l_val       : tin_natural;
                    b_pos       : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        FUNCTION
              i20gchar (
                    b_pos        : tsp00_Int4) : char;
 
        PROCEDURE
              i20gcolname (
                    pos         : tsp00_Int4;
                    VAR cname   : tsp00_KnlIdentifier;
                    VAR namlen  : integer);
 
        PROCEDURE
              i20gcount (
                    VAR count : tsp00_Int4);
 
        PROCEDURE
              i20gdescriptor (
                    VAR descript : tsp00_C8);
 
        PROCEDURE
              i20gettrans_tables;
 
        PROCEDURE
              i20getval (
                    l_val       : tin_natural;
                    b_pos       : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    pos         : tsp00_Int2;
                    maxsize     : tsp00_Int2;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20gloadfield (
                    info_no : tin_natural;
                    VAR ffi : tsp7_ffield_info);
 
        PROCEDURE
              i20gparaminfo (
                    info_no   : tin_natural;
                    VAR pi    : tsp1_param_info;
                    VAR found : boolean);
 
        PROCEDURE
              i20gparsid (
                    VAR parsid : tin_parsid);
 
        PROCEDURE
              i20gpival (
                    VAR pi      : tsp1_param_info;
                    val_size    : tsp00_Int4;
                    VAR val     : tsp00_MoveObj;
                    VAR val_len : tsp00_Int4;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20g1pival (
                    VAR pi      : tsp1_param_info;
                    val_size    : tsp00_Int4;
                    VAR val     : tsp00_MoveObj;
                    VAR val_len : tsp00_Int4;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20g2pival (
                    VAR pi      : tsp1_param_info;
                    val_size    : tsp00_Int4;
                    VAR val     : tsp00_MoveObj;
                    VAR val_len : tsp00_Int4;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20g3pival (
                    VAR pi      : tsp1_param_info;
                    val_size    : tsp00_Int4;
                    VAR val     : tsp00_MoveObj;
                    VAR val_len : tsp00_Int4;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20g4pival (
                    VAR pi      : tsp1_param_info;
                    val_size    : tsp00_Int4;
                    VAR val     : tsp00_MoveObj;
                    VAR val_len : tsp00_Int4;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20grescount (
                    VAR known  : boolean;
                    VAR count  : tsp00_Int4);
 
        PROCEDURE
              i20gspcount (
                    VAR count : integer);
 
        PROCEDURE
              i20gpartval (
                    l_part      : tin_natural;
                    l_val       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20gval (
                    l_val       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20g1val (
                    l_val       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20g2val (
                    l_val       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20g3val (
                    l_val       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20initadbs;
 
        PROCEDURE
              i20initcommand (
                    mess_type : tsp1_cmd_mess_type);
 
        PROCEDURE
              i20initexecute (
                    VAR pid : tin_parsid);
 
        PROCEDURE
              i20initparse;
 
        FUNCTION
              i20lnr (
                    val          : char;
                    start        : tsp00_Int4;
                    cnt          : tsp00_Int4) : tsp00_Int4;
 
        PROCEDURE
              i20mfetch (
                    in_unicode   : boolean;
                    m_type       : tsp1_cmd_mess_type;
                    count        : tsp00_Int4;
                    dir          : tin_fetch_dir;
                    VAR res_name : tsp00_KnlIdentifier);
 
        PROCEDURE
              i20mfparse (
                    dir          : tin_fetch_dir;
                    cols         : integer;
                    VAR res_name : tsp00_KnlIdentifier);
 
        PROCEDURE
              i20mfpos (
                    in_unicode   : boolean;
                    m_type       : tsp1_cmd_mess_type;
                    count        : tin_natural;
                    fetchpos     : tsp00_Int4;
                    VAR res_name : tsp00_KnlIdentifier);
 
        PROCEDURE
              i20movecmnd (
                    VAR s  : tsp00_MoveObj;
                    pos    : tin_natural;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20newcmd (
                    m_type : tsp1_cmd_mess_type);
 
        PROCEDURE
              i20newpart (
                    part_kind : tsp1_part_kind);
 
        PROCEDURE
              i20nextpart_init;
 
        PROCEDURE
              i20parg (
                    l_arg       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR arg     : tsp00_Buf;
                    is_null     : boolean);
 
        PROCEDURE
              i20p1arg (
                    l_arg       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR arg     : tsp00_C20;
                    is_null     : boolean);
 
        FUNCTION
              i20partfreespace : tsp00_Int4;
 
        PROCEDURE
              i20fbarg (
                    VAR arg : tsp00_Buf;
                    b_pos   : tsp00_Int4;
                    l_arg   : tin_natural;
                    defbyte : char;
                    l_field : tin_natural;
                    is_null : boolean);
 
        PROCEDURE
              i20pbarg (
                    VAR arg : tsp00_Buf;
                    b_pos   : tsp00_Int4;
                    l_arg   : tin_natural;
                    is_null : boolean);
 
        PROCEDURE
              i20p1barg (
                    VAR arg : tsp00_Buf;
                    b_pos   : tsp00_Int4;
                    l_arg   : tin_natural;
                    is_null : boolean);
 
        PROCEDURE
              i20p2barg (
                    VAR arg : tsp00_Buf;
                    b_pos   : tsp00_Int4;
                    l_arg   : tin_natural;
                    is_null : boolean);
 
        PROCEDURE
              i20p3barg (
                    VAR arg : tsp00_Buf;
                    b_pos   : tsp00_Int4;
                    l_arg   : tin_natural;
                    is_null : boolean);
 
        PROCEDURE
              i20p4barg (
                    VAR arg : tsp00_Buf;
                    b_pos   : tsp00_Int4;
                    l_arg   : tin_natural;
                    is_null : boolean);
 
        PROCEDURE
              i20pbuf (
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    from_pos : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i20p1buf (
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    from_pos : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i20p2buf (
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    from_pos : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i20p3buf (
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    from_pos : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i20p4buf (
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    from_pos : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i20pcmnd (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20p1cmnd (
                    VAR s  : tsp00_C20;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20p2cmnd (
                    VAR s  : tsp00_C40;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20p3cmnd (
                    VAR s  : tsp00_C70;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20p4cmnd (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20p5cmnd (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20pccmnd (
                    c      : char);
 
        PROCEDURE
              i20pcmd (
                    s      : tsp00_C30);
 
        PROCEDURE
              i20pcname (
                    VAR nam : tsp00_KnlIdentifier);
 
        PROCEDURE
              i20pcuname (
                    VAR nam : tsp00_KnlIdentifier);
 
        PROCEDURE
              i20pdescriptor (
                    VAR descript : tsp00_C8);
 
        PROCEDURE
              i20pparsid (
                    VAR parsid : tin_parsid);
 
        PROCEDURE
              i20ppw (
                    VAR pw : tsp00_CryptPw );
 
        PROCEDURE
              i20prescount (
                    VAR count  : tsp00_Int4);
 
        PROCEDURE
              i20pstring (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20p1string (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20p2string (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20p3string (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20p4string (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20p5string (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20putstring (
                    VAR arg : tsp00_MoveObj;
                    b_pos   : tsp00_Int2;
                    l_arg   : tsp00_Int2;
                    is_null : boolean);
 
        PROCEDURE
              i20repcmnd (
                    c      : char);
 
        PROCEDURE
              i20request (
                    VAR rq_status : tin_connect_status);
 
        PROCEDURE
              i20receive (
                    VAR rc_status  : tin_connect_status;
                    VAR sqlstate   : tsp00_SqlState;
                    VAR returncode : tsp00_Int2;
                    VAR errorpos   : tsp00_Int4);
 
        PROCEDURE
              i20reset (
                    m_type : tsp1_cmd_mess_type);
 
        PROCEDURE
              i20rfpos (
                    m_type       : tsp1_cmd_mess_type;
                    count        : tsp00_Int4;
                    fetchpos     : tsp00_Int4;
                    VAR res_name : tsp00_KnlIdentifier);
 
        PROCEDURE
              i20setksession (
                    VAR parsid : tin_parsid);
 
        PROCEDURE
              i20setsqlptr (
                    packet_no : integer);
 
        PROCEDURE
              i20switchsession (
                    session_no : integer);
 
        PROCEDURE
              i20tosendreset;
 
        FUNCTION
              i20validpid (
                    VAR parsid : tin_parsid) : boolean;
 
        FUNCTION
              i20valisnull (
                    pos : tsp00_Int4) : boolean;
 
        FUNCTION
              in2030 : tsp00_Int4;
&       endif
 
        FUNCTION
              i20ugchar (
                    b_pos        : tsp00_Int4) : char;
 
        PROCEDURE
              i20ugbval (
                    val_size    : tsp00_Int4;
                    VAR pi      : tsp1_param_info;
                    VAR uc_val  : tsp00_Buf;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20ug1bval (
                    val_size    : tsp00_Int4;
                    VAR pi      : tsp1_param_info;
                    VAR uc_val  : tsp00_Buf;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20ug2bval (
                    val_size    : tsp00_Int4;
                    VAR pi      : tsp1_param_info;
                    VAR uc_val  : tsp00_Buf;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20ug3bval (
                    val_size    : tsp00_Int4;
                    VAR pi      : tsp1_param_info;
                    VAR uc_val  : tsp00_Buf;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20ug4bval (
                    val_size    : tsp00_Int4;
                    VAR pi      : tsp1_param_info;
                    VAR uc_val  : tsp00_Buf;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20ug5bval (
                    val_size    : tsp00_Int4;
                    VAR pi      : tsp1_param_info;
                    VAR uc_val  : tsp00_Buf;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i20upcmnd (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20up1cmnd (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20up2cmnd (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20up3cmnd (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20up4cmnd (
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i20upcuname (
                    VAR nam : tsp00_KnlIdentifier);
 
        PROCEDURE
              i20upcname (
                    VAR nam : tsp00_KnlIdentifier);
 
        PROCEDURE
              i20upccmnd (
                    c      : char);
 
        PROCEDURE
              i20urepcmnd (
                    c      : char);
 
        PROCEDURE
              i20ureset (
                    m_type : tsp1_cmd_mess_type);
 
.CM *-END-* define --------------------------------------
.sp;.cp 3
Use     :
 
&       ifndef INLINK
        FROM
              global_variable : VIN01;
 
        VAR
              i01g   : tin_global_in_vars;
 
      ------------------------------ 
 
        FROM
              SQLDB-command-interface : VIN21;
 
        PROCEDURE
              i21fbarg (
                    g_area  : tin_global_in_vars;
                    VAR arg : tsp00_Buf;
                    b_pos   : tsp00_Int4;
                    l_arg   : tin_natural;
                    defbyte : char;
                    l_field : tin_natural;
                    is_null : boolean);
 
        PROCEDURE
              i21tosendreset (
                    g_area : tin_global_in_vars);
 
        PROCEDURE
              i21connect (
                    g_area          : tin_global_in_vars;
                    installation    : boolean;
                    VAR charsetname : tsp00_KnlIdentifier;
                    VAR status      : tin_connect_status);
 
        PROCEDURE
              i21dbnoreset (
                    g_area : tin_global_in_vars);
 
        PROCEDURE
              i21disconnect (
                    g_area : tin_global_in_vars);
 
        PROCEDURE
              i21oldsenderid (
                    g_area : tin_global_in_vars);
 
        PROCEDURE
              i21rebuild_session (
                    g_area     : tin_global_in_vars;
                    VAR status : tin_connect_status);
 
        PROCEDURE
              i21release (
                    g_area     : tin_global_in_vars);
 
        PROCEDURE
              i21senderid (
                    g_area : tin_global_in_vars;
                    compid : tsp00_C3);
 
        PROCEDURE
              i21setdbno (
                    g_area             : tin_global_in_vars;
                    VAR symbolicdbname : tsp00_DbName;
                    VAR switch_rc      : tin_connect_status );
 
        PROCEDURE
              i21setsqlptr (
                    g_area : tin_global_in_vars;
                    packet_no : integer);
 
        PROCEDURE
              i21switchsession (
                    g_area     : tin_global_in_vars;
                    session_no : integer);
 
        PROCEDURE
              i21alternativesegment (
                    g_area      : tin_global_in_vars;
                    switch_stat : tin_switch_type );
 
        PROCEDURE
              i21ansimsgtext (
                    g_area  : tin_global_in_vars;
                    VAR msg : tin_screenline);
 
        FUNCTION
              i21buflen (
                    g_area  : tin_global_in_vars) : tsp00_Int4;
 
        PROCEDURE
              i21check_stmt (
                    g_area        : tin_global_in_vars;
                    is_unicode    : boolean;
                    VAR statement : tin_check_sql);
 
        PROCEDURE
              i21chngargcount (
                    g_area    : tin_global_in_vars;
                    argcount  : tsp00_Int2);
 
        PROCEDURE
              i21chngattributes (
                    g_area      : tin_global_in_vars;
                    attributes  : tsp1_part_attr);
 
        PROCEDURE
              i21chngcodetype (
                    g_area    : tin_global_in_vars;
                    mess_code : tsp00_CodeType);
 
        PROCEDURE
              i21chngcommit (
                    g_area    : tin_global_in_vars;
                    commit    : boolean);
 
        PROCEDURE
              i21chngcostwarn (
                    g_area    : tin_global_in_vars;
                    costwarn  : boolean);
 
        PROCEDURE
              i21chnginfo (
                    g_area    : tin_global_in_vars;
                    with_info : boolean);
 
        PROCEDURE
              i21chngmasscmd (
                    g_area     : tin_global_in_vars;
                    is_masscmd : boolean);
 
        PROCEDURE
              i21chngmesstype (
                    g_area    : tin_global_in_vars;
                    messtype  : tsp1_cmd_mess_type);
 
        PROCEDURE
              i21chngmode (
                    g_area    : tin_global_in_vars;
                    sqlmode   : tsp1_sqlmode);
 
        PROCEDURE
              i21chngpartkind (
                    g_area    : tin_global_in_vars;
                    part_kind : tsp1_part_kind);
 
        PROCEDURE
              i21chngproducer (
                    g_area    : tin_global_in_vars;
                    producer  : tsp1_producer);
 
        PROCEDURE
              i21dbcrash (
                    g_area : tin_global_in_vars );
 
        FUNCTION
              i21dbok (
                    g_area : tin_global_in_vars ) : boolean;
 
        PROCEDURE
              i21errortext (
                    g_area  : tin_global_in_vars;
                    VAR msg : tin_screenline);
 
        PROCEDURE
              i21fetchrest (
                    g_area : tin_global_in_vars);
 
        PROCEDURE
              i21findpart (
                    g_area    : tin_global_in_vars;
                    part_kind : tsp1_part_kind);
 
        PROCEDURE
              i21finish_part (
                    g_area   : tin_global_in_vars);
 
        PROCEDURE
              i21gbuf (
                    g_area   : tin_global_in_vars;
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    val_pos  : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i21g1buf (
                    g_area   : tin_global_in_vars;
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    val_pos  : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i21g2buf (
                    g_area   : tin_global_in_vars;
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    val_pos  : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i21g3buf (
                    g_area   : tin_global_in_vars;
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    val_pos  : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i21g4buf (
                    g_area   : tin_global_in_vars;
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    val_pos  : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i21g5buf (
                    g_area   : tin_global_in_vars;
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    val_pos  : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i21gbval (
                    g_area      : tin_global_in_vars;
                    l_val       : tin_natural;
                    b_pos       : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i21g1bval (
                    g_area      : tin_global_in_vars;
                    l_val       : tin_natural;
                    b_pos       : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i21g2bval (
                    g_area      : tin_global_in_vars;
                    l_val       : tin_natural;
                    b_pos       : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i21g3bval (
                    g_area      : tin_global_in_vars;
                    l_val       : tin_natural;
                    b_pos       : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i21g4bval (
                    g_area      : tin_global_in_vars;
                    l_val       : tin_natural;
                    b_pos       : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        FUNCTION
              i21gchar (
                    g_area       : tin_global_in_vars;
                    b_pos        : tsp00_Int4) : char;
 
        PROCEDURE
              i21gcolname (
                    g_area      : tin_global_in_vars;
                    pos         : tsp00_Int4;
                    VAR cname   : tsp00_KnlIdentifier;
                    VAR namlen  : integer);
 
        PROCEDURE
              i21gcount (
                    g_area    : tin_global_in_vars;
                    VAR count : tsp00_Int4);
 
        PROCEDURE
              i21gdescriptor (
                    g_area       : tin_global_in_vars;
                    VAR descript : tsp00_C8);
 
        PROCEDURE
              i21gettrans_tables (
                    g_area    : tin_global_in_vars);
 
        PROCEDURE
              i21getval (
                    g_area      : tin_global_in_vars;
                    l_val       : tin_natural;
                    b_pos       : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    pos         : tsp00_Int2;
                    maxsize     : tsp00_Int2;
                    VAR is_null : boolean);
 
        PROCEDURE
              i21gloadfield (
                    g_area  : tin_global_in_vars;
                    info_no : tin_natural;
                    VAR ffi : tsp7_ffield_info);
 
        PROCEDURE
              i21gparaminfo (
                    g_area    : tin_global_in_vars;
                    info_no   : tin_natural;
                    VAR pi    : tsp1_param_info;
                    VAR found : boolean);
 
        PROCEDURE
              i21gparsid (
                    g_area     : tin_global_in_vars;
                    VAR parsid : tin_parsid);
 
        PROCEDURE
              i21gpival (
                    g_area      : tin_global_in_vars;
                    VAR pi      : tsp1_param_info;
                    val_size    : tsp00_Int4;
                    VAR val     : tsp00_MoveObj;
                    VAR val_len : tsp00_Int4;
                    VAR is_null : boolean);
 
        PROCEDURE
              i21grescount (
                    g_area     : tin_global_in_vars;
                    VAR known  : boolean;
                    VAR count  : tsp00_Int4);
 
        PROCEDURE
              i21gvalcount (
                    g_area    : tin_global_in_vars;
                    VAR count : integer);
 
        PROCEDURE
              i21gpartval (
                    g_area      : tin_global_in_vars;
                    l_part      : tin_natural;
                    l_val       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i21gval (
                    g_area      : tin_global_in_vars;
                    l_val       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i21g1val (
                    g_area      : tin_global_in_vars;
                    l_val       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i21g2val (
                    g_area      : tin_global_in_vars;
                    l_val       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i21g3val (
                    g_area      : tin_global_in_vars;
                    l_val       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR val     : tsp00_Buf;
                    VAR is_null : boolean);
 
        PROCEDURE
              i21initadbs (
                    g_area : tin_global_in_vars);
 
        PROCEDURE
              i21initcommand (
                    g_area    : tin_global_in_vars;
                    mess_type : tsp1_cmd_mess_type);
 
        PROCEDURE
              i21initexecute (
                    g_area  : tin_global_in_vars;
                    VAR pid : tin_parsid);
 
        PROCEDURE
              i21initparse (
                    g_area : tin_global_in_vars);
 
        FUNCTION
              i21lnr (
                    g_area       : tin_global_in_vars;
                    val          : char;
                    start        : tsp00_Int4;
                    cnt          : tsp00_Int4) : tsp00_Int4;
 
        PROCEDURE
              i21mfetch (
                    g_area       : tin_global_in_vars;
                    in_unicode   : boolean;
                    m_type       : tsp1_cmd_mess_type;
                    count        : tsp00_Int4;
                    dir          : tin_fetch_dir;
                    VAR res_name : tsp00_KnlIdentifier);
 
        PROCEDURE
              i21mfparse (
                    g_area       : tin_global_in_vars;
                    dir          : tin_fetch_dir;
                    cols         : integer;
                    VAR res_name : tsp00_KnlIdentifier);
 
        PROCEDURE
              i21mfpos (
                    g_area       : tin_global_in_vars;
                    in_unicode   : boolean;
                    m_type       : tsp1_cmd_mess_type;
                    count        : tin_natural;
                    fetchpos     : tsp00_Int4;
                    VAR res_name : tsp00_KnlIdentifier);
 
        PROCEDURE
              i21movecmnd (
                    g_area : tin_global_in_vars;
                    VAR s  : tsp00_MoveObj;
                    pos    : tin_natural;
                    l_s    : tin_natural);
 
        PROCEDURE
              i21newcmd (
                    g_area : tin_global_in_vars;
                    m_type : tsp1_cmd_mess_type);
 
        PROCEDURE
              i21newpart (
                    g_area    : tin_global_in_vars;
                    part_kind : tsp1_part_kind);
 
        PROCEDURE
              i21nextpart_init (
                    g_area       : tin_global_in_vars);
 
        PROCEDURE
              i21parg (
                    g_area      : tin_global_in_vars;
                    l_arg       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR arg     : tsp00_Buf;
                    is_null     : boolean);
 
        PROCEDURE
              i21p1arg (
                    g_area      : tin_global_in_vars;
                    l_arg       : tin_natural;
                    VAR pos     : tsp00_Int4;
                    VAR arg     : tsp00_C20;
                    is_null     : boolean);
 
        FUNCTION
              i21partfreespace (
                    g_area  : tin_global_in_vars) : tsp00_Int4;
 
        PROCEDURE
              i21pbarg (
                    g_area  : tin_global_in_vars;
                    VAR arg : tsp00_Buf;
                    b_pos   : tsp00_Int4;
                    l_arg   : tin_natural;
                    is_null : boolean);
 
        PROCEDURE
              i21p1barg (
                    g_area  : tin_global_in_vars;
                    VAR arg : tsp00_Buf;
                    b_pos   : tsp00_Int4;
                    l_arg   : tin_natural;
                    is_null : boolean);
 
        PROCEDURE
              i21p2barg (
                    g_area  : tin_global_in_vars;
                    VAR arg : tsp00_Buf;
                    b_pos   : tsp00_Int4;
                    l_arg   : tin_natural;
                    is_null : boolean);
 
        PROCEDURE
              i21p3barg (
                    g_area  : tin_global_in_vars;
                    VAR arg : tsp00_Buf;
                    b_pos   : tsp00_Int4;
                    l_arg   : tin_natural;
                    is_null : boolean);
 
        PROCEDURE
              i21p4barg (
                    g_area  : tin_global_in_vars;
                    VAR arg : tsp00_Buf;
                    b_pos   : tsp00_Int4;
                    l_arg   : tin_natural;
                    is_null : boolean);
 
        PROCEDURE
              i21pbuf (
                    g_area   : tin_global_in_vars;
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    from_pos : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i21p1buf (
                    g_area   : tin_global_in_vars;
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    from_pos : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i21p2buf (
                    g_area   : tin_global_in_vars;
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    from_pos : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i21p3buf (
                    g_area   : tin_global_in_vars;
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    from_pos : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i21p4buf (
                    g_area   : tin_global_in_vars;
                    buf_pos  : tsp00_Int4;
                    VAR val  : tsp00_MoveObj;
                    from_pos : tsp00_Int4;
                    move_len : tsp00_Int4);
 
        PROCEDURE
              i21pcmnd (
                    g_area : tin_global_in_vars;
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i21p1cmnd (
                    g_area : tin_global_in_vars;
                    VAR s  : tsp00_C20;
                    l_s    : tin_natural);
 
        PROCEDURE
              i21p2cmnd (
                    g_area : tin_global_in_vars;
                    VAR s  : tsp00_C40;
                    l_s    : tin_natural);
 
        PROCEDURE
              i21p3cmnd (
                    g_area : tin_global_in_vars;
                    VAR s  : tsp00_C70;
                    l_s    : tin_natural);
 
        PROCEDURE
              i21p4cmnd (
                    g_area : tin_global_in_vars;
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i21p5cmnd (
                    g_area : tin_global_in_vars;
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i21pccmnd (
                    g_area : tin_global_in_vars;
                    c      : char);
 
        PROCEDURE
              i21pcmd (
                    g_area : tin_global_in_vars;
                    s      : tsp00_C30);
 
        PROCEDURE
              i21pcname (
                    g_area  : tin_global_in_vars;
                    VAR nam : tsp00_KnlIdentifier);
 
        PROCEDURE
              i21pcuname (
                    g_area  : tin_global_in_vars;
                    VAR nam : tsp00_KnlIdentifier);
 
        PROCEDURE
              i21pdescriptor (
                    g_area       : tin_global_in_vars;
                    VAR descript : tsp00_C8);
 
        PROCEDURE
              i21pparsid (
                    g_area     : tin_global_in_vars;
                    VAR parsid : tin_parsid);
 
        PROCEDURE
              i21ppw (
                    g_area : tin_global_in_vars;
                    VAR pw : tsp00_CryptPw );
 
        PROCEDURE
              i21prescount (
                    g_area     : tin_global_in_vars;
                    VAR count  : tsp00_Int4);
 
        PROCEDURE
              i21pstring (
                    g_area : tin_global_in_vars;
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i21p1string (
                    g_area : tin_global_in_vars;
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i21p2string (
                    g_area : tin_global_in_vars;
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i21p3string (
                    g_area : tin_global_in_vars;
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i21p4string (
                    g_area : tin_global_in_vars;
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i21p5string (
                    g_area : tin_global_in_vars;
                    VAR s  : tsp00_Buf;
                    l_s    : tin_natural);
 
        PROCEDURE
              i21putstring (
                    g_area  : tin_global_in_vars;
                    VAR arg : tsp00_MoveObj;
                    b_pos   : tsp00_Int2;
                    l_arg   : tsp00_Int2;
                    is_null : boolean);
 
        PROCEDURE
              i21repcmnd (
                    g_area : tin_global_in_vars;
                    c      : char);
 
        PROCEDURE
              i21request (
                    g_area        : tin_global_in_vars;
                    VAR rq_status : tin_connect_status);
 
        PROCEDURE
              i21receive (
                    g_area         : tin_global_in_vars;
                    VAR rc_status  : tin_connect_status;
                    VAR sqlstate   : tsp00_SqlState;
                    VAR returncode : tsp00_Int2;
                    VAR errorpos   : tsp00_Int4);
 
        PROCEDURE
              i21reset (
                    g_area : tin_global_in_vars;
                    m_type : tsp1_cmd_mess_type);
 
        PROCEDURE
              i21rfpos (
                    g_area       : tin_global_in_vars;
                    m_type       : tsp1_cmd_mess_type;
                    count        : tsp00_Int4;
                    fetchpos     : tsp00_Int4;
                    VAR res_name : tsp00_KnlIdentifier);
 
        PROCEDURE
              i21setksession (
                    g_area     : tin_global_in_vars;
                    VAR parsid : tin_parsid);
 
        FUNCTION
              i21validpid (
                    g_area     : tin_global_in_vars;
                    VAR parsid : tin_parsid) : boolean;
 
        FUNCTION
              i21valisnull (
                    g_area  : tin_global_in_vars;
                    pos     : tsp00_Int4) : boolean;
&       endif
 
.CM *-END-* use -----------------------------------------
.sp;.cp 3
Synonym :
 
.CM *-END-* synonym -------------------------------------
.sp;.cp 3
Author  : 
          B.Jakubowski, M.Rathmann, P.Zaretzke
          A.Starnell, B.Morgeneyer (USERID -> CONNECT_ID)
.sp
.cp 3
Created : 1985-01-30
.sp
.cp 3
Version : 1997-06-20
.sp
.cp 3
Release :  6.2.8.5       Date : 1997-06-20
.sp
***********************************************************
.sp
.cp 20
.fo
.oc _/1
Specification:
 
siehe VIN21
 
.CM *-END-* specification -------------------------------
.sp 2.fo
***********************************************************
.sp
.cp 10
.fo
.oc _/1
Description:
 
.CM *-END-* description ---------------------------------
.sp 2
***********************************************************
.sp
.cp 10
.nf
.oc _/1
Structure:
 
.CM *-END-* structure -----------------------------------
.sp 2
**********************************************************
.sp
.cp 10
.nf
.oc _/1
.CM -lll-
Code    :
 
 
&ifndef INLINK
(*------------------------------*) 
 
FUNCTION
      in2030 : tsp00_Int4;
 
BEGIN
(* linkcheck function *)
in2030 := 219020612;
END;
 
(*------------------------------*) 
 
PROCEDURE
      i20connect (
            VAR charsetname : tsp00_KnlIdentifier;
            VAR status      : tin_connect_status);
 
BEGIN
i21connect (i01g, false, charsetname, status );
END; (* i20connect *)
 
(*------------------------------*) 
 
PROCEDURE
      i20dbnoreset ;
 
BEGIN
i21dbnoreset (i01g);
END; (* i20dbnoreset *)
 
(*------------------------------*) 
 
PROCEDURE
      i20disconnect ;
 
BEGIN
i21disconnect (i01g);
END; (* i20disconnect *)
 
(*------------------------------*) 
 
PROCEDURE
      i20oldsenderid ;
 
BEGIN
i21oldsenderid (i01g);
END; (* i20oldsenderid *)
 
(*------------------------------*) 
 
PROCEDURE
      i20rebuild_session (
            VAR status : tin_connect_status);
 
BEGIN
i21rebuild_session (i01g, status);
END; (* i20rebuild_session *)
 
(*------------------------------*) 
 
PROCEDURE
      i20release ;
 
BEGIN
i21release (i01g);
END; (* i20release *)
 
(*------------------------------*) 
 
PROCEDURE
      i20senderid (
            compid : tsp00_C3);
 
BEGIN
i21senderid (i01g, compid);
END; (* i20senderid *)
 
(*------------------------------*) 
 
PROCEDURE
      i20setdbno (
            VAR symbolicdbname : tsp00_DbName;
            VAR switch_rc      : tin_connect_status );
 
BEGIN
i21setdbno (i01g, symbolicdbname, switch_rc);
END; (* i20setdbno *)
 
(*------------------------------*) 
 
PROCEDURE
      i20alternativesegment (
            switch_stat : tin_switch_type );
 
BEGIN
i21alternativesegment (i01g, switch_stat);
END; (* i20alternativesegment *)
 
(*------------------------------*) 
 
PROCEDURE
      i20ansimsgtext (
            VAR msg : tin_screenline);
 
BEGIN
i21ansimsgtext (i01g, msg);
END; (* i20ansimsgtext *)
 
(*------------------------------*) 
 
FUNCTION
      i20buflen : tsp00_Int4;
 
BEGIN
i20buflen := i21buflen (i01g);
END; (* i20buflen *)
 
(*------------------------------*) 
 
PROCEDURE
      i20check_stmt (
            is_unicode    : boolean;
            VAR statement : tin_check_sql);
 
BEGIN
i21check_stmt (i01g, is_unicode, statement);
END; (* i20check_stmt *)
 
(*------------------------------*) 
 
PROCEDURE
      i20chngargcount (
            argcount  : tsp00_Int2);
 
BEGIN
i21chngargcount (i01g, argcount);
END; (* i20chngargcount *)
 
(*------------------------------*) 
 
PROCEDURE
      i20chngattributes (
            attributes  : tsp1_part_attr);
 
BEGIN
i21chngattributes (i01g, attributes);
END; (* i20chngattributes *)
 
(*------------------------------*) 
 
PROCEDURE
      i20chngcodetype (
            mess_code : tsp00_CodeType);
 
BEGIN
i21chngcodetype (i01g, mess_code);
END; (* i20chngcodetype *)
 
(*------------------------------*) 
 
PROCEDURE
      i20chngcommit (
            commit    : boolean);
 
BEGIN
i21chngcommit (i01g, commit);
END; (* i20chngcommit *)
 
(*------------------------------*) 
 
PROCEDURE
      i20chngcostwarn (
            costwarn  : boolean);
 
BEGIN
i21chngcostwarn (i01g, costwarn);
END; (* i20chngcostwarn *)
 
(*------------------------------*) 
 
PROCEDURE
      i20chnginfo (
            with_info : boolean);
 
BEGIN
i21chnginfo (i01g, with_info);
END; (* i20chnginfo *)
 
(*------------------------------*) 
 
PROCEDURE
      i20chngmesstype (
            messtype  : tsp1_cmd_mess_type);
 
BEGIN
i21chngmesstype (i01g, messtype);
END; (* i20chngmesstype *)
 
(*------------------------------*) 
 
PROCEDURE
      i20chngmasscmd (
            is_masscmd  : boolean);
 
BEGIN
i21chngmasscmd (i01g, is_masscmd);
END; (* i20chngmesstype *)
 
(*------------------------------*) 
 
PROCEDURE
      i20chngmode (
            sqlmode   : tsp1_sqlmode);
 
BEGIN
i21chngmode (i01g, sqlmode);
END; (* i20chngmode *)
 
(*------------------------------*) 
 
PROCEDURE
      i20chngpartkind (
            part_kind : tsp1_part_kind);
 
BEGIN
i21chngpartkind (i01g, part_kind);
END; (* i20chngpartkind *)
 
(*------------------------------*) 
 
PROCEDURE
      i20chngproducer (
            producer  : tsp1_producer);
 
BEGIN
i21chngproducer (i01g, producer);
END; (* i20chngproducer *)
 
(*------------------------------*) 
 
PROCEDURE
      i20dbcrash ;
 
BEGIN
i21dbcrash (i01g);
END; (* i20dbcrash *)
 
(*------------------------------*) 
 
FUNCTION
      i20dbok : boolean;
 
BEGIN
i20dbok := i21dbok (i01g);
END; (* i20dbok *)
 
(*------------------------------*) 
 
PROCEDURE
      i20errortext (
            VAR msg : tin_screenline);
 
BEGIN
i21errortext (i01g, msg);
END; (* i20errortext *)
 
(*------------------------------*) 
 
PROCEDURE
      i20fetchrest ;
 
BEGIN
i21fetchrest (i01g);
END; (* i20fetchrest *)
 
(*------------------------------*) 
 
PROCEDURE
      i20findpart (
            part_kind : tsp1_part_kind);
 
BEGIN
i21findpart (i01g, part_kind);
END; (* i20findpart *)
 
(*------------------------------*) 
 
FUNCTION
      i20existpart (
            part_kind : tsp1_part_kind) : boolean;
 
BEGIN
i21findpart (i01g, part_kind);
i20existpart := i01g^.sql_ptr^.curr_part_ptr <> NIL;
END; (* i20existpart *)
 
(*------------------------------*) 
 
PROCEDURE
      i20finish_part ;
 
BEGIN
i21finish_part (i01g);
END; (* i20finish_part *)
 
(*------------------------------*) 
 
PROCEDURE
      i20gbuf (
            buf_pos  : tsp00_Int4;
            VAR val  : tsp00_MoveObj;
            val_pos  : tsp00_Int4;
            move_len : tsp00_Int4);
 
BEGIN
i21gbuf (i01g, buf_pos, val, val_pos, move_len);
END; (* i20gbuf *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g1buf (
            buf_pos  : tsp00_Int4;
            VAR val  : tsp00_MoveObj;
            val_pos  : tsp00_Int4;
            move_len : tsp00_Int4);
 
BEGIN
i21g1buf (i01g, buf_pos, val, val_pos, move_len);
END; (* i20g1buf *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g2buf (
            buf_pos  : tsp00_Int4;
            VAR val  : tsp00_MoveObj;
            val_pos  : tsp00_Int4;
            move_len : tsp00_Int4);
 
BEGIN
i21g2buf (i01g, buf_pos, val, val_pos, move_len);
END; (* i20g2buf *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g3buf (
            buf_pos  : tsp00_Int4;
            VAR val  : tsp00_MoveObj;
            val_pos  : tsp00_Int4;
            move_len : tsp00_Int4);
 
BEGIN
i21g3buf (i01g, buf_pos, val, val_pos, move_len);
END; (* i20g3buf *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g4buf (
            buf_pos  : tsp00_Int4;
            VAR val  : tsp00_MoveObj;
            val_pos  : tsp00_Int4;
            move_len : tsp00_Int4);
 
BEGIN
i21g4buf (i01g, buf_pos, val, val_pos, move_len);
END; (* i20g4buf *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g5buf (
            buf_pos  : tsp00_Int4;
            VAR val  : tsp00_MoveObj;
            val_pos  : tsp00_Int4;
            move_len : tsp00_Int4);
 
BEGIN
i21g5buf (i01g, buf_pos, val, val_pos, move_len);
END; (* i20g5buf *)
 
(*------------------------------*) 
 
PROCEDURE
      i20gbval (
            l_val       : tin_natural;
            b_pos       : tsp00_Int4;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i21gbval (i01g, l_val, b_pos, val, is_null);
END; (* i20gbval *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g1bval (
            l_val       : tin_natural;
            b_pos       : tsp00_Int4;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i21g1bval (i01g, l_val, b_pos, val, is_null);
END; (* i20g1bval *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g2bval (
            l_val       : tin_natural;
            b_pos       : tsp00_Int4;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i21g2bval (i01g, l_val, b_pos, val, is_null);
END; (* i20g2bval *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g3bval (
            l_val       : tin_natural;
            b_pos       : tsp00_Int4;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i21g3bval (i01g, l_val, b_pos, val, is_null);
END; (* i20g3bval *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g4bval (
            l_val       : tin_natural;
            b_pos       : tsp00_Int4;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i21g4bval (i01g, l_val, b_pos, val, is_null);
END; (* i20g4bval *)
 
(*------------------------------*) 
 
FUNCTION
      i20gchar (
            b_pos        : tsp00_Int4) : char;
 
BEGIN
i20gchar := i21gchar (i01g, b_pos);
END; (* i20gchar *)
 
(*------------------------------*) 
 
PROCEDURE
      i20gcolname (
            pos         : tsp00_Int4;
            VAR cname   : tsp00_KnlIdentifier;
            VAR namlen  : integer);
 
BEGIN
i21gcolname (i01g, pos, cname, namlen);
END; (* i20gcolname *)
 
(*------------------------------*) 
 
PROCEDURE
      i20gdescriptor (
            VAR descript : tsp00_C8);
 
BEGIN
i21gdescriptor (i01g, descript);
END; (* i20gdescriptor *)
 
(*------------------------------*) 
 
PROCEDURE
      i20gettrans_tables;
 
BEGIN
i21gettrans_tables (i01g);
END; (* i20gettrans_tables *)
 
(*------------------------------*) 
 
PROCEDURE
      i20getval (
            l_val       : tin_natural;
            b_pos       : tsp00_Int4;
            VAR val     : tsp00_Buf;
            pos         : tsp00_Int2;
            maxsize     : tsp00_Int2;
            VAR is_null : boolean);
 
BEGIN
i21getval (i01g, l_val, b_pos, val, pos, maxsize, is_null);
END; (* i20getval *)
 
(*------------------------------*) 
 
PROCEDURE
      i20gloadfield (
            info_no : tin_natural;
            VAR ffi : tsp7_ffield_info);
 
BEGIN
i21gloadfield (i01g, info_no, ffi);
END; (* i20gloadfield *)
 
(*------------------------------*) 
 
PROCEDURE
      i20gcount (
            VAR count : tsp00_Int4);
 
BEGIN
i21gcount (i01g, count);
END; (* i20gcount *)
 
(*------------------------------*) 
 
PROCEDURE
      i20gparsid (
            VAR parsid : tin_parsid);
 
BEGIN
i21gparsid (i01g, parsid);
END; (* i20gparsid *)
 
(*------------------------------*) 
 
PROCEDURE
      i20grescount (
            VAR known  : boolean;
            VAR count  : tsp00_Int4);
 
BEGIN
i21grescount (i01g, known, count);
END; (* i20grescount *)
 
(*------------------------------*) 
 
PROCEDURE
      i20gparaminfo (
            info_no   : tin_natural;
            VAR pi    : tsp1_param_info;
            VAR found : boolean);
 
BEGIN
i21gparaminfo (i01g, info_no, pi, found);
END; (* i20gparaminfo *)
 
(*------------------------------*) 
 
PROCEDURE
      i20gspcount (
            VAR count : integer);
 
BEGIN
i21gvalcount (i01g, count);
END; (* i20gspcount *)
 
(*------------------------------*) 
 
PROCEDURE
      i20gpartval (
            l_part      : tin_natural;
            l_val       : tin_natural;
            VAR pos     : tsp00_Int4;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i21gpartval (i01g, l_part, l_val, pos, val, is_null);
END; (* i20gval *)
 
(*------------------------------*) 
 
PROCEDURE
      i20gpival (
            VAR pi      : tsp1_param_info;
            val_size    : tsp00_Int4;
            VAR val     : tsp00_MoveObj;
            VAR val_len : tsp00_Int4;
            VAR is_null : boolean);
 
BEGIN
i21gpival (i01g, pi, val_size, val, val_len, is_null);
END; (* i20gpival *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g1pival (
            VAR pi      : tsp1_param_info;
            val_size    : tsp00_Int4;
            VAR val     : tsp00_MoveObj;
            VAR val_len : tsp00_Int4;
            VAR is_null : boolean);
 
BEGIN
i21gpival (i01g, pi, val_size, val, val_len, is_null);
END; (* i20g1pival *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g2pival (
            VAR pi      : tsp1_param_info;
            val_size    : tsp00_Int4;
            VAR val     : tsp00_MoveObj;
            VAR val_len : tsp00_Int4;
            VAR is_null : boolean);
 
BEGIN
i21gpival (i01g, pi, val_size, val, val_len, is_null);
END; (* i20g2pival *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g3pival (
            VAR pi      : tsp1_param_info;
            val_size    : tsp00_Int4;
            VAR val     : tsp00_MoveObj;
            VAR val_len : tsp00_Int4;
            VAR is_null : boolean);
 
BEGIN
i21gpival (i01g, pi, val_size, val, val_len, is_null);
END; (* i20g3pival *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g4pival (
            VAR pi      : tsp1_param_info;
            val_size    : tsp00_Int4;
            VAR val     : tsp00_MoveObj;
            VAR val_len : tsp00_Int4;
            VAR is_null : boolean);
 
BEGIN
i21gpival (i01g, pi, val_size, val, val_len, is_null);
END; (* i20g4pival *)
 
(*------------------------------*) 
 
PROCEDURE
      i20gval (
            l_val       : tin_natural;
            VAR pos     : tsp00_Int4;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i21gval (i01g, l_val, pos, val, is_null);
END; (* i20gval *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g1val (
            l_val       : tin_natural;
            VAR pos     : tsp00_Int4;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i21g1val (i01g, l_val, pos, val, is_null);
END; (* i20g1val *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g2val (
            l_val       : tin_natural;
            VAR pos     : tsp00_Int4;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i21g2val (i01g, l_val, pos, val, is_null);
END; (* i20g2val *)
 
(*------------------------------*) 
 
PROCEDURE
      i20g3val (
            l_val       : tin_natural;
            VAR pos     : tsp00_Int4;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i21g3val (i01g, l_val, pos, val, is_null);
END; (* i20g3val *)
 
(*------------------------------*) 
 
PROCEDURE
      i20initadbs;
 
BEGIN
i21initadbs (i01g);
END; (* i20initadbs *)
 
(*------------------------------*) 
 
PROCEDURE
      i20initcommand (
            mess_type : tsp1_cmd_mess_type);
 
BEGIN
i21initcommand (i01g, mess_type);
END; (* i20initcommand *)
 
(*------------------------------*) 
 
PROCEDURE
      i20initexecute (
            VAR pid : tin_parsid);
 
BEGIN
i21initexecute (i01g, pid);
END; (* i20initexecute *)
 
(*------------------------------*) 
 
PROCEDURE
      i20initparse;
 
BEGIN
i21initparse (i01g);
END; (* i20initparse *)
 
(*------------------------------*) 
 
FUNCTION
      i20lnr (
            val          : char;
            start        : tsp00_Int4;
            cnt          : tsp00_Int4) : tsp00_Int4;
 
BEGIN
i20lnr := i21lnr (i01g, val, start, cnt);
END; (* i20lnr *)
 
(*------------------------------*) 
 
PROCEDURE
      i20mfetch (
            in_unicode   : boolean;
            m_type       : tsp1_cmd_mess_type;
            count        : tsp00_Int4;
            dir          : tin_fetch_dir;
            VAR res_name : tsp00_KnlIdentifier);
 
BEGIN
i21mfetch (i01g, in_unicode, m_type, count, dir, res_name);
END; (* i20mfetch *)
 
(*------------------------------*) 
 
PROCEDURE
      i20mfparse (
            dir          : tin_fetch_dir;
            cols         : integer;
            VAR res_name : tsp00_KnlIdentifier);
 
BEGIN
i21mfparse (i01g, dir, cols, res_name);
END; (* i20mfparse *)
 
(*------------------------------*) 
 
PROCEDURE
      i20mfpos (
            in_unicode   : boolean;
            m_type       : tsp1_cmd_mess_type;
            count        : tin_natural;
            fetchpos     : tsp00_Int4;
            VAR res_name : tsp00_KnlIdentifier);
 
BEGIN
i21mfpos (i01g, in_unicode, m_type, count, fetchpos, res_name);
END; (* i20mfpos *)
 
(*------------------------------*) 
 
PROCEDURE
      i20movecmnd (
            VAR s  : tsp00_MoveObj;
            pos    : tin_natural;
            l_s    : tin_natural);
 
BEGIN
i21movecmnd (i01g, s, pos, l_s);
END; (* i20movecmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20newcmd (
            m_type : tsp1_cmd_mess_type);
 
BEGIN
i21newcmd (i01g, m_type);
END; (* i20newcmd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20newpart (part_kind : tsp1_part_kind);
 
BEGIN
i21newpart (i01g, part_kind);
END; (* i20newpart *)
 
(*------------------------------*) 
 
PROCEDURE
      i20nextpart_init ;
 
BEGIN
i21nextpart_init (i01g);
END; (* i20nextpart_init *)
 
(*------------------------------*) 
 
PROCEDURE
      i20parg (
            l_arg       : tin_natural;
            VAR pos     : tsp00_Int4;
            VAR arg     : tsp00_Buf;
            is_null     : boolean);
 
BEGIN
i21parg (i01g, l_arg, pos, arg, is_null);
END; (* i20parg *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p1arg (
            l_arg       : tin_natural;
            VAR pos     : tsp00_Int4;
            VAR arg     : tsp00_C20;
            is_null     : boolean);
 
BEGIN
i21p1arg (i01g, l_arg, pos, arg, is_null);
END; (* i20p1arg *)
 
(*------------------------------*) 
 
FUNCTION
      i20partfreespace : tsp00_Int4;
 
BEGIN
i20partfreespace := i21partfreespace (i01g);
END; (* i20partfreespace *)
 
(*------------------------------*) 
 
PROCEDURE
      i20fbarg (
            VAR arg : tsp00_Buf;
            b_pos   : tsp00_Int4;
            l_arg   : tin_natural;
            defbyte : char;
            l_field : tin_natural;
            is_null : boolean);
 
BEGIN
i21fbarg (i01g, arg, b_pos, l_arg, defbyte, l_field, is_null);
END; (* i20pbarg *)
 
(*------------------------------*) 
 
PROCEDURE
      i20pbarg (
            VAR arg : tsp00_Buf;
            b_pos   : tsp00_Int4;
            l_arg   : tin_natural;
            is_null : boolean);
 
BEGIN
i21pbarg (i01g, arg, b_pos, l_arg, is_null);
END; (* i20pbarg *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p1barg (
            VAR arg : tsp00_Buf;
            b_pos   : tsp00_Int4;
            l_arg   : tin_natural;
            is_null : boolean);
 
BEGIN
i21p1barg (i01g, arg, b_pos, l_arg, is_null);
END; (* i20p1barg *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p2barg (
            VAR arg : tsp00_Buf;
            b_pos   : tsp00_Int4;
            l_arg   : tin_natural;
            is_null : boolean);
 
BEGIN
i21p2barg (i01g, arg, b_pos, l_arg, is_null);
END; (* i20p2barg *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p3barg (
            VAR arg : tsp00_Buf;
            b_pos   : tsp00_Int4;
            l_arg   : tin_natural;
            is_null : boolean);
 
BEGIN
i21p3barg (i01g, arg, b_pos, l_arg, is_null);
END; (* i20p3barg *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p4barg (
            VAR arg : tsp00_Buf;
            b_pos   : tsp00_Int4;
            l_arg   : tin_natural;
            is_null : boolean);
 
BEGIN
i21p4barg (i01g, arg, b_pos, l_arg, is_null);
END; (* i20p4barg *)
 
(*------------------------------*) 
 
PROCEDURE
      i20pbuf (
            buf_pos  : tsp00_Int4;
            VAR val  : tsp00_MoveObj;
            from_pos : tsp00_Int4;
            move_len : tsp00_Int4);
 
BEGIN
i21pbuf (i01g, buf_pos, val, from_pos, move_len);
END; (* i20pbuf *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p1buf (
            buf_pos  : tsp00_Int4;
            VAR val  : tsp00_MoveObj;
            from_pos : tsp00_Int4;
            move_len : tsp00_Int4);
 
BEGIN
i21p1buf (i01g, buf_pos, val, from_pos, move_len);
END; (* i20p1buf *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p2buf (
            buf_pos  : tsp00_Int4;
            VAR val  : tsp00_MoveObj;
            from_pos : tsp00_Int4;
            move_len : tsp00_Int4);
 
BEGIN
i21p2buf (i01g, buf_pos, val, from_pos, move_len);
END; (* i20p2buf *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p3buf (
            buf_pos  : tsp00_Int4;
            VAR val  : tsp00_MoveObj;
            from_pos : tsp00_Int4;
            move_len : tsp00_Int4);
 
BEGIN
i21p3buf (i01g, buf_pos, val, from_pos, move_len);
END; (* i20p3buf *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p4buf (
            buf_pos  : tsp00_Int4;
            VAR val  : tsp00_MoveObj;
            from_pos : tsp00_Int4;
            move_len : tsp00_Int4);
 
BEGIN
i21p4buf (i01g, buf_pos, val, from_pos, move_len);
END; (* i20p4buf *)
 
(*------------------------------*) 
 
PROCEDURE
      i20pcmnd (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
BEGIN
i21pcmnd (i01g, s, l_s);
END; (* i20pcmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p1cmnd (
            VAR s  : tsp00_C20;
            l_s    : tin_natural);
 
BEGIN
i21p1cmnd (i01g, s, l_s);
END; (* i20p1cmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p2cmnd (
            VAR s  : tsp00_C40;
            l_s    : tin_natural);
 
BEGIN
i21p2cmnd (i01g, s, l_s);
END; (* i20p2cmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p3cmnd (
            VAR s  : tsp00_C70;
            l_s    : tin_natural);
 
BEGIN
i21p3cmnd (i01g, s, l_s);
END; (* i20p3cmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p4cmnd (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
BEGIN
i21p4cmnd (i01g, s, l_s);
END; (* i20p4cmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p5cmnd (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
BEGIN
i21p5cmnd (i01g, s, l_s);
END; (* i20p5cmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20pccmnd (
            c      : char);
 
BEGIN
i21pccmnd (i01g, c);
END; (* i20pccmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20pcmd (
            s      : tsp00_C30);
 
BEGIN
i21pcmd (i01g, s);
END; (* i20pcmd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20pcname (
            VAR nam : tsp00_KnlIdentifier);
 
BEGIN
i21pcname (i01g, nam);
END; (* i20pcname *)
 
(*------------------------------*) 
 
PROCEDURE
      i20pcuname (
            VAR nam : tsp00_KnlIdentifier);
 
BEGIN
i21pcuname (i01g, nam);
END; (* i20pcuname *)
 
(*------------------------------*) 
 
PROCEDURE
      i20pdescriptor (
            VAR descript : tsp00_C8);
 
BEGIN
i21pdescriptor (i01g, descript);
END; (* i20pdescriptor *)
 
(*------------------------------*) 
 
PROCEDURE
      i20pparsid (
            VAR parsid : tin_parsid);
 
BEGIN
i21pparsid (i01g, parsid);
END; (* i20pparsid *)
 
(*------------------------------*) 
 
PROCEDURE
      i20ppw (
            VAR pw : tsp00_CryptPw );
 
BEGIN
i21ppw (i01g, pw);
END; (* i20ppw *)
 
(*------------------------------*) 
 
PROCEDURE
      i20prescount (
            VAR count  : tsp00_Int4);
 
BEGIN
i21prescount (i01g, count);
END; (* i20prescount *)
 
(*------------------------------*) 
 
PROCEDURE
      i20pstring (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
BEGIN
i21pstring (i01g, s, l_s);
END; (* i20pstring *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p1string (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
BEGIN
i21p1string (i01g, s, l_s);
END; (* i20p1string *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p2string (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
BEGIN
i21p2string (i01g, s, l_s);
END; (* i20p2string *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p3string (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
BEGIN
i21p3string (i01g, s, l_s);
END; (* i20p3string *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p4string (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
BEGIN
i21p4string (i01g, s, l_s);
END; (* i20p4string *)
 
(*------------------------------*) 
 
PROCEDURE
      i20p5string (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
BEGIN
i21p5string (i01g, s, l_s);
END; (* i20p5string *)
 
(*------------------------------*) 
 
PROCEDURE
      i20putstring (
            VAR arg : tsp00_MoveObj;
            b_pos   : tsp00_Int2;
            l_arg   : tsp00_Int2;
            is_null : boolean);
 
BEGIN
i21putstring (i01g, arg, b_pos, l_arg, is_null);
END; (* i20putstring *)
 
(*------------------------------*) 
 
PROCEDURE
      i20repcmnd (
            c      : char);
 
BEGIN
i21repcmnd (i01g, c);
END; (* i20repcmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20request (
            VAR rq_status : tin_connect_status);
 
BEGIN
i21request (i01g, rq_status);
END; (* i20request *)
 
(*------------------------------*) 
 
PROCEDURE
      i20receive (
            VAR rc_status  : tin_connect_status;
            VAR sqlstate   : tsp00_SqlState;
            VAR returncode : tsp00_Int2;
            VAR errorpos   : tsp00_Int4);
 
BEGIN
i21receive (i01g, rc_status, sqlstate, returncode, errorpos);
END; (* i20receive *)
 
(*------------------------------*) 
 
PROCEDURE
      i20reset (
            m_type : tsp1_cmd_mess_type);
 
BEGIN
i21reset (i01g, m_type);
END; (* i20reset *)
 
(*------------------------------*) 
 
PROCEDURE
      i20tosendreset;
 
BEGIN
i21tosendreset (i01g);
END; (* i20tosendreset *)
 
(*------------------------------*) 
 
PROCEDURE
      i20rfpos (
            m_type       : tsp1_cmd_mess_type;
            count        : tsp00_Int4;
            fetchpos     : tsp00_Int4;
            VAR res_name : tsp00_KnlIdentifier);
 
BEGIN
i21rfpos (i01g, m_type, count, fetchpos, res_name);
END; (* i20rfpos *)
 
(*------------------------------*) 
 
PROCEDURE
      i20setsqlptr (
            packet_no : integer);
 
BEGIN
i21setsqlptr (i01g, packet_no);
END; (* i20setsqlptr *)
 
(*------------------------------*) 
 
PROCEDURE
      i20switchsession (
            session_no : integer);
 
BEGIN
i21switchsession (i01g, session_no);
END; (* i20switchsession *)
 
(*------------------------------*) 
 
PROCEDURE
      i20setksession (
            VAR parsid : tin_parsid);
 
BEGIN
i21setksession (i01g, parsid);
END; (* i20setksession *)
 
(*------------------------------*) 
 
FUNCTION
      i20validpid (
            VAR parsid : tin_parsid) : boolean;
 
BEGIN
i20validpid := i21validpid (i01g, parsid);
END; (* i20validpid *)
 
(*------------------------------*) 
 
FUNCTION
      i20valisnull (
            pos : tsp00_Int4) : boolean;
 
BEGIN
i20valisnull := i21valisnull (i01g, pos);
END; (* i20valisnull *)
 
&endif
(*------------------------------*) 
 
FUNCTION
      i20ugchar (
            b_pos        : tsp00_Int4) : char;
 
BEGIN
IF  i01g^.multibyte.dblang = bsp_c64
THEN
    i20ugchar := i21gchar (i01g, b_pos)
ELSE
    IF  i01g^.multibyte.unicode_type = csp_unicode_swap
    THEN
        i20ugchar := i21gchar (i01g, b_pos)
    ELSE
        i20ugchar := i21gchar (i01g, b_pos + 1);
    (*ENDIF*) 
(*ENDIF*) 
END; (* i20ugchar *)
 
(*------------------------------*) 
 
PROCEDURE
      i20ugbval (
            val_size    : tsp00_Int4;
            VAR pi      : tsp1_param_info;
            VAR uc_val  : tsp00_Buf;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
VAR
      i      : integer;
      uc_len : tsp00_Int4;
      len    : tsp00_Int4;
 
BEGIN
IF  (pi.sp1i_data_type in [dunicode, dstruni, dlonguni])
    OR (i01g^.multibyte.dblang <> bsp_c64)
THEN
    (* only for ascii values in unicode! *)
    BEGIN
    IF  pi.sp1i_in_out_len - 1 > val_size * 2
    THEN
        uc_len := val_size * 2
    ELSE
        uc_len := pi.sp1i_in_out_len - 1;
    (*ENDIF*) 
    i21gbval (i01g, uc_len, pi.sp1i_bufpos, uc_val, is_null);
    IF  NOT is_null
    THEN
        FOR i := 2 TO uc_len DO
            IF  NOT odd (i)
            THEN
                IF  i01g^.multibyte.unicode_type = csp_unicode
                THEN
                    val [i DIV 2] := uc_val [i]
                ELSE
                    val [i DIV 2] := uc_val [i - 1];
                (*ENDIF*) 
            (*ENDIF*) 
        (*ENDFOR*) 
    (*ENDIF*) 
    END
ELSE
    BEGIN
    IF  pi.sp1i_in_out_len - 1 > val_size
    THEN
        len := val_size
    ELSE
        len := pi.sp1i_in_out_len - 1;
    (*ENDIF*) 
    i21gbval (i01g, len, pi.sp1i_bufpos, val, is_null);
    END;
(*ENDIF*) 
END; (* i20ugbval *)
 
(*------------------------------*) 
 
PROCEDURE
      i20ug1bval (
            val_size    : tsp00_Int4;
            VAR pi      : tsp1_param_info;
            VAR uc_val  : tsp00_Buf;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i20ugbval (val_size, pi, uc_val, val, is_null);
END; (* i20ug1bval *)
 
(*------------------------------*) 
 
PROCEDURE
      i20ug2bval (
            val_size    : tsp00_Int4;
            VAR pi      : tsp1_param_info;
            VAR uc_val  : tsp00_Buf;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i20ugbval (val_size, pi, uc_val, val, is_null);
END; (* i20ug2bval *)
 
(*------------------------------*) 
 
PROCEDURE
      i20ug3bval (
            val_size    : tsp00_Int4;
            VAR pi      : tsp1_param_info;
            VAR uc_val  : tsp00_Buf;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i20ugbval (val_size, pi, uc_val, val, is_null);
END; (* i20ug3bval *)
 
(*------------------------------*) 
 
PROCEDURE
      i20ug4bval (
            val_size    : tsp00_Int4;
            VAR pi      : tsp1_param_info;
            VAR uc_val  : tsp00_Buf;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i20ugbval (val_size, pi, uc_val, val, is_null);
END; (* i20ug4bval *)
 
(*------------------------------*) 
 
PROCEDURE
      i20ug5bval (
            val_size    : tsp00_Int4;
            VAR pi      : tsp1_param_info;
            VAR uc_val  : tsp00_Buf;
            VAR val     : tsp00_Buf;
            VAR is_null : boolean);
 
BEGIN
i20ugbval (val_size, pi, uc_val, val, is_null);
END; (* i20ug5bval *)
 
(*------------------------------*) 
 
PROCEDURE
      i20upcmnd (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
VAR
      i    : integer;
      j    : integer;
      help : tsp00_Buf;
 
BEGIN
IF  i01g^.multibyte.dblang = bsp_c64
THEN
    i21pcmnd (i01g, s, l_s)
ELSE
    BEGIN
    i := 1;
    j := 2;
    WHILE i <= l_s DO
        BEGIN
        IF  i01g^.multibyte.unicode_type = csp_unicode
        THEN
            BEGIN
            help [j - 1] := csp_unicode_mark;
            help [j]     := s [i];
            END
        ELSE
            BEGIN
            help [j - 1] := s [i];
            help [j]     := csp_unicode_mark;
            END;
        (*ENDIF*) 
        i := i + 1;
        IF  j = mxsp_buf
        THEN
            BEGIN
            i21pcmnd (i01g, help, mxsp_buf);
            j := 2;
            END
        ELSE
            j := j + 2;
        (*ENDIF*) 
        END;
    (*ENDWHILE*) 
    i21pcmnd (i01g, help, j - 2)
    END;
(*ENDIF*) 
END; (* i20upcmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20up1cmnd (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
BEGIN
i20upcmnd (s, l_s);
END; (* i20up1cmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20up2cmnd (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
BEGIN
i20upcmnd (s, l_s);
END; (* i20up2cmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20up3cmnd (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
BEGIN
i20upcmnd (s, l_s);
END; (* i20up3cmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20up4cmnd (
            VAR s  : tsp00_Buf;
            l_s    : tin_natural);
 
BEGIN
i20upcmnd (s, l_s);
END; (* i20up4cmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20upcuname (
            VAR nam : tsp00_KnlIdentifier);
 
VAR
      i    : integer;
      j    : integer;
      help : tsp00_KnlIdentifier;
 
BEGIN
IF  i01g^.multibyte.dblang = bsp_c64
THEN
    i21pcuname (i01g, nam)
ELSE
    BEGIN
    i := 1;
    j := 2;
    WHILE i <= sizeof(nam) DO
        BEGIN
        IF  i01g^.multibyte.unicode_type = csp_unicode
        THEN
            BEGIN
            help [j - 1] := csp_unicode_mark;
            help [j]     := nam [i];
            END
        ELSE
            BEGIN
            help [j - 1] := nam [i];
            help [j]     := csp_unicode_mark;
            END;
        (*ENDIF*) 
        i := i + 1;
        IF  j = sizeof(nam)
        THEN
            BEGIN
            i21pcuname (i01g, help);
            j := 2;
            END
        ELSE
            j := j + 2;
        (*ENDIF*) 
        END;
    (*ENDWHILE*) 
    END;
(*ENDIF*) 
END; (* i20upcuname *)
 
(*------------------------------*) 
 
PROCEDURE
      i20upcname (
            VAR nam : tsp00_KnlIdentifier);
 
VAR
      i    : integer;
      j    : integer;
      help : tsp00_KnlIdentifier;
 
BEGIN
IF  i01g^.multibyte.dblang = bsp_c64
THEN
    i21pcname (i01g, nam)
ELSE
    BEGIN
    i := 1;
    j := 2;
    WHILE i <= sizeof(nam) DO
        BEGIN
        IF  i01g^.multibyte.unicode_type = csp_unicode
        THEN
            BEGIN
            help [j - 1] := csp_unicode_mark;
            help [j]     := nam [i];
            END
        ELSE
            BEGIN
            help [j - 1] := nam [i];
            help [j]     := csp_unicode_mark;
            END;
        (*ENDIF*) 
        i := i + 1;
        IF  j = sizeof(nam)
        THEN
            BEGIN
            i21pcname (i01g, help);
            j := 2;
            END
        ELSE
            j := j + 2;
        (*ENDIF*) 
        END;
    (*ENDWHILE*) 
    END;
(*ENDIF*) 
END; (* i20upcname *)
 
(*------------------------------*) 
 
PROCEDURE
      i20upccmnd (
            c      : char);
 
BEGIN
IF  i01g^.multibyte.dblang = bsp_c64
THEN
    i21pccmnd (i01g, c)
ELSE
    IF  i01g^.multibyte.unicode_type = csp_unicode
    THEN
        BEGIN
        i21pccmnd (i01g, csp_unicode_mark);
        i21pccmnd (i01g, c);
        END
    ELSE
        BEGIN
        i21pccmnd (i01g, c);
        i21pccmnd (i01g, csp_unicode_mark);
        END;
    (*ENDIF*) 
(*ENDIF*) 
END; (* i20upccmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20urepcmnd (
            c      : char);
 
BEGIN
IF  i01g^.multibyte.dblang = bsp_c64
THEN
    i21repcmnd (i01g, c)
ELSE
    WITH i01g^.sql_ptr^ DO
        IF  (curr_part_ptr <> NIL) AND (packet_stat = p_reset)
        THEN
            WITH curr_part_ptr^ DO
                IF  sp1p_buf [sp1p_buf_len] = csp_unicode_mark
                THEN
                    sp1p_buf [sp1p_buf_len - 1] := c
                ELSE
                    sp1p_buf [sp1p_buf_len] := c;
                (*ENDIF*) 
            (*ENDWITH*) 
        (*ENDIF*) 
    (*ENDWITH*) 
(*ENDIF*) 
END; (* i20urepcmnd *)
 
(*------------------------------*) 
 
PROCEDURE
      i20ureset (
            m_type : tsp1_cmd_mess_type);
 
BEGIN
i21reset (i01g, m_type);
IF  i01g^.multibyte.dblang <> bsp_c64
THEN
    i21chngcodetype (i01g, i01g^.multibyte.unicode_type);
(*ENDIF*) 
END; (* i20ureset *)
 
.CM *-END-* code ----------------------------------------
.SP 2 
***********************************************************
*-PRETTY-*  statements    :        220
*-PRETTY-*  lines of code :       1770        PRETTY  3.09 
*-PRETTY-*  lines in file :       3325         1992-11-23 
.PA 
