SQL Programming Manual for TAL

Examples of Dynamic NonStop SQL Programs
HP NonStop SQL Programming Manual for TAL—527887-001
C-33
Detailed Dynamic SQL Program
Page 23 [1] $VOL1.S04.TALDYN 1991-10-15 13:42:28
startup^and^define^pool
903. 000000 0 0 PROC startup^and^define^pool;
904. 000000 1 0
905. 000000 1 0 !******************************************************!
906. 000000 1 0 ! PROC startup^and^define^pool !
907. 000000 1 0 ! reads startup message, opens terminal, and defines
memory pool !
908. 000000 1 0 !********************************************************!
909. 000000 1 0
910. 000000 1 0 BEGIN
911. 000000 1 1 INT error; ! definepool error
912. 000000 1 1 INT termname[0:11]; ! gets home terminal name from
MYTERM
913. 000000 1 1
914. 000000 1 1 !
915. 000000 1 1 ! Read startup message.
916. 000000 1 1 !
917. 000000 1 1
918. 000000 1 1 call INITIALIZER;
919. 000006 1 1
920. 000006 1 1 !
921. 000006 1 1 ! Open terminal for output.
922. 000006 1 1 !
923. 000006 1 1
924. 000006 1 1 CALL MYTERM(termname);
925. 000011 1 1 CALL OPEN(termname, term);
926. 000021 1 1 IF <> THEN CALL DEBUG;
927. 000023 1 1
928. 000023 1 1 !
929. 000023 1 1 ! Initialize memory pool.
930. 000023 1 1 !
931. 000023 1 1
932. 000023 1 1 error := DEFINEPOOL(pool^head, pool, POOL^SIZE^IN^BYTES);
933. 000036 1 1 IF error <> 0 THEN
934. 000040 1 1 BEGIN
935. 000040 1 2 PUT^STR ("Definepool error: ");
936. 000056 1 2 PUT^INT^MID (error);
937. 000076 1 2 PRINT^LINE;
938. 000111 1 2 CALL ABEND;
939. 000116 1 2 END;
940. 000116 1 1 END; !end of proc startup^and^define^pool
941. 000000 0 0