Martin at 16:21, 7 November 2025

2025-11-07T16:21:51Z

← Older revision		Revision as of 16:21, 7 November 2025
Line 37:		Line 37:
	000031 01 DATASRC PIC X(64) value		000031 01 DATASRC PIC X(64) value
	000032 * "pgsql://10.68.171.50:5432".		000032 * "pgsql://10.68.171.50:5432".
	000033 "pgsql://10.68.171.50:5432/cobol_gixsql".		000033 * "pgsql://10.68.171.50:5432/cobol_gixsql".
	000034 * "pgsql://localhost:5432/cobol_gixsql".		000034 "pgsql://localhost:5432/cobol_gixsql".
	000035 01 DBUSR PIC X(64) value "gix_user".		000035 01 DBUSR PIC X(64) value "gix_user".
	000036 01 DBPWD PIC X(64) value "gix_user".		000036 01 DBPWD PIC X(64) value "gix_user".

Martin: Created page with " GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0001 LINE PG/LN A...B............................."

2025-11-07T15:57:01Z

Created page with "<per> GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0001 LINE PG/LN A...B............................."

New page

<per>
GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0001

LINE PG/LN A...B............................................................SEQUENCE

000001 IDENTIFICATION DIVISION.
000002
000003 PROGRAM-ID. pgcobol.
000004
000005
000006 ENVIRONMENT DIVISION.
000007
000008 CONFIGURATION SECTION.
000009 source-computer. Linux-laptop.
000010 object-computer. Linux-laptop.
000011 special-names.
000012 console is scherm.
000013
000014 SOURCE-COMPUTER. IBM-AT.
000015 OBJECT-COMPUTER. IBM-AT.
000016
000017 INPUT-OUTPUT SECTION.
000018 FILE-CONTROL.
000019 select fprinter assign to "pgcobol.prt";
000020 ORGANIZATION LINE SEQUENTIAL.
000021 DATA DIVISION.
000022
000023 FILE SECTION.
000024 FD fprinter.
000025 01 file-buffer PIC X(242).
000026 WORKING-STORAGE SECTION.
000027
000028 * copy 'SQLCA.cpy'.
000029 * copy 'EMPREC.cpy'.
000030
000031 01 DATASRC PIC X(64) value
000032 * "pgsql://10.68.171.50:5432".
000033 "pgsql://10.68.171.50:5432/cobol_gixsql".
000034 * "pgsql://localhost:5432/cobol_gixsql".
000035 01 DBUSR PIC X(64) value "gix_user".
000036 01 DBPWD PIC X(64) value "gix_user".
000037
000038 01 CUR-STEP PIC X(16).
000039 01 empcount PIC 9(5).
000040 01 employee-record.
000041 03 r-ENO PIC S9(4) COMP.
000042 03 r-LNAME PIC X(10).
000043 03 r-FNAME PIC X(10).
000044 03 r-STREET PIC X(20).
000045 03 r-CITY PIC X(15).
000046 03 r-ST PIC XX.
000047 03 r-ZIP PIC X(5).
000048 03 r-DEPT PIC X(4).
000049 * 03 a-PAYRATE PIC S9(13)V99 COMP-3 VALUE 0.
000050 03 r-PAYRATE PIC S9(13)V99 COMP-3 VALUE 0.
000051 03 r-COM PIC S9V99 COMP-3.
000052 03 r-MISCDATA PIC X(132).

GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0002

LINE PG/LN A...B............................................................SEQUENCE

000053 03 r-DNUM1 PIC S99V99 COMP-3.
000054 03 r-DNUM2 PIC S99V99 COMP-3.
000055 03 r-DNUM3 PIC S99V99 COMP-3.
000056
000057 01 employee-row.
000058 03 p-ENO PIC z(3)9.
000059 03 filler pic x value space.
000060 03 p-LNAME PIC X(10).
000061 03 filler pic x value space.
000062 03 p-FNAME PIC X(10).
000063 03 filler pic x value space.
000064 03 p-STREET PIC X(20).
000065 03 filler pic x value space.
000066 03 p-CITY PIC X(15).
000067 03 filler pic x value space.
000068 03 p-ST PIC XX.
000069 03 filler pic x value space.
000070 03 p-ZIP PIC X(5).
000071 03 filler pic x value space.
000072 03 p-DEPT PIC X(4).
000073 03 filler pic x value space.
000074 03 p-PAYRATE PIC z(12)9.99.
000075 03 filler pic x value space.
000076 03 p-COM PIC 9v99.
000077 03 filler pic x value space.
000078 03 p-DNUM1 PIC z9.99.
000079 03 filler pic x value space.
000080 03 p-DNUM2 PIC z9.99.
000081 03 filler pic x value space.
000082 03 p-DNUM3 PIC z9.99.
000083 03 filler pic x value space.
000084 03 p-miscdata-text pic X(128).
000085
000086 01 employee-header.
000087 03 h-ENO pic x(5) value 'Eno'.
000088 03 h-LNAME PIC X(11) value 'Lname'.
000089 03 h-FNAME PIC X(11) value 'Fname'.
000090 03 h-STREET PIC X(21) value space.
000091 03 h-CITY PIC X(16) value 'City'.
000092 03 h-ST PIC X(3) value 'ST'.
000093 03 h-ZIP PIC X(6) value 'zip'.
000094 03 h-DEPT PIC X(5) value 'Dept'.
000095 03 h-PAYRATE PIC x(17) value 'Payrate'.
000096 03 h-COM PIC x(4) value 'Com'.
000097 03 h-DNUM1 PIC x(6) value 'Dnum1'.
000098 03 h-DNUM2 PIC x(6) value 'Dnum1'.
000099 03 h-DNUM3 PIC x(6) value 'Dnum1'.
000100 03 h-miscdata-text pic X(128) value 'Misc data'.
000101
000102 01 employee-page.
000103 03 filler pic x(118) value space.
000104 03 filler pic x(10) value 'page'.

GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0003

LINE PG/LN A...B............................................................SEQUENCE

000105 03 f-page-number PIC z(3)9.
000106
000107 *01 MISCDATA PIC X(132).
000108
000109 01 miscdata-group.
000110 49 miscdata-len pic 9(8) comp-5.
000111 49 miscdata-text pic X(128).
000112
000113 01 IDX PIC 9(2).
000114 01 print-buffer PIC X(242).
000115 01 line-number PIC 99 value 99.
000116 01 page-number PIC 9999 value zero.
000117
000118 01 TMPNUM PIC 9(4).
000119
000120 GIXSQL*EXEC SQL
000121 GIXSQL* INCLUDE employee-table
000122 GIXSQL*END-EXEC.
000123 COPY employee-table.
000001C 01 employee-table.
000002C 03 ENO PIC S9(4) COMP.
000003C 03 LNAME PIC X(10).
000004C 03 FNAME PIC X(10).
000005C 03 STREET PIC X(20).
000006C 03 CITY PIC X(15).
000007C 03 ST PIC XX.
000008C 03 ZIP PIC X(5).
000009C 03 DEPT PIC X(4).
000010C 03 PAYRATE PIC S9(13)V99 COMP-3 VALUE 0.
000011C 03 COM PIC S9V99 COMP-3.
000012C 03 MISCDATA PIC X(132).
000013C 03 DNUM1 PIC S99V99 COMP-3.
000014C 03 DNUM2 PIC S99V99 COMP-3.
000015C 03 DNUM3 PIC S99V99 COMP-3.
000016C
000124
000125 GIXSQL*EXEC SQL
000126 GIXSQL* INCLUDE SQLCA
000127 GIXSQL*END-EXEC.
000128 COPY SQLCA.
000001C ******************************************************************
000002C * SQLCA: SQL Communications Area for GIXSQL *
000003C ******************************************************************
000004C 01 SQLCA.
000005C 05 SQLCAID PIC X(8).
000006C 05 SQLCABC PIC S9(9) COMP-5.
000007C 05 SQLCODE PIC S9(9) COMP-5.
000008C 05 SQLERRM.
000009C 49 SQLERRML PIC S9(4) COMP-5.
000010C 49 SQLERRMC PIC X(70).
000011C 05 SQLERRP PIC X(8). *> not used
000012C 05 SQLERRD OCCURS 6 TIMES *> used only ERRD(3)

GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0004

LINE PG/LN A...B............................................................SEQUENCE

000013C PIC S9(9) COMP-5.
000014C 05 SQLWARN. *> not used
000015C 10 SQLWARN0 PIC X(1).
000016C 10 SQLWARN1 PIC X(1).
000017C 10 SQLWARN2 PIC X(1).
000018C 10 SQLWARN3 PIC X(1).
000019C 10 SQLWARN4 PIC X(1).
000020C 10 SQLWARN5 PIC X(1).
000021C 10 SQLWARN6 PIC X(1).
000022C 10 SQLWARN7 PIC X(1).
000023C 05 SQLSTATE PIC X(5).
000024C ******************************************************************
000129
000130 GIXSQL*EXEC SQL AT cobol_sql
000131 GIXSQL* DECLARE employeecursor CURSOR FOR
000132 GIXSQL* SELECT * FROM emptable
000133 GIXSQL*END-EXEC.
000134
000135 GIXSQL 01 SQ0001.
000136 GIXSQL 02 FILLER PIC X(0022) VALUE "SELECT * FROM emptable".
000137 GIXSQL 02 FILLER PIC X(1) VALUE X"00".
000138 GIXSQL 01 SQ0002.
000139 GIXSQL 02 FILLER PIC X(0031) VALUE "SELECT COUNT( * ) FROM emptab"
000140 GIXSQL & "le".
000141 GIXSQL 02 FILLER PIC X(1) VALUE X"00".
000142 GIXSQL 01 SQ0003.
000143 GIXSQL 02 FILLER PIC X(0017) VALUE "START TRANSACTION".
000144 GIXSQL 02 FILLER PIC X(1) VALUE X"00".
000145 GIXSQL* ESQL CURSOR INIT FLAGS (START)
000146 GIXSQL 01 GIXSQL-CI-F-pgcobol-employeecursor PIC X.
000147 GIXSQL* ESQL CURSOR INIT FLAGS (END)
000148 PROCEDURE DIVISION.
000149
000150 r00-main.
000151
000152 perform r90-init.
000153 perform r80-verwerk.
000154 perform r99-exit.
000155
000156 r80-verwerk.
000157
000158 GIXSQL* EXEC SQL AT cobol_sql
000159 GIXSQL* SELECT COUNT(*) INTO :empcount FROM emptable
000160 GIXSQL* END-EXEC.
000161 GIXSQL CALL STATIC "GIXSQLStartSQL"
000162 GIXSQL END-CALL
000163 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000164 GIXSQL BY VALUE 1
000165 GIXSQL BY VALUE 5
000166 GIXSQL BY VALUE 0
000167 GIXSQL BY VALUE 0
000168 GIXSQL BY REFERENCE empcount

GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0005

LINE PG/LN A...B............................................................SEQUENCE

000169 GIXSQL BY REFERENCE 0
000170 GIXSQL END-CALL
000171 GIXSQL CALL STATIC "GIXSQLExecSelectIntoOne" USING
000172 GIXSQL BY REFERENCE SQLCA
000173 GIXSQL BY REFERENCE "cobol_sql" & x"00"
000174 GIXSQL BY VALUE 0
000175 GIXSQL BY REFERENCE SQ0002
000176 GIXSQL BY VALUE 0
000177 GIXSQL BY VALUE 1
000178 GIXSQL END-CALL
000179 GIXSQL CALL STATIC "GIXSQLEndSQL"
000180 GIXSQL END-CALL.
000181
000182 display "Rijen in emptable" upon scherm.
000183 display empcount upon scherm.
000184
000185 perform r81-init-cursor.
000186
000187 perform r85-verwerk-employee until
000188 SQLCODE < 0 or SQLCODE = 100
000189
000190 perform r89-close-cursor.
000191
000192 r81-init-cursor.
000193
000194 GIXSQL* EXEC SQL AT cobol_sql START TRANSACTION END-EXEC.
000195 GIXSQL CALL STATIC "GIXSQLStartSQL"
000196 GIXSQL END-CALL
000197 GIXSQL CALL STATIC "GIXSQLExec" USING
000198 GIXSQL BY REFERENCE SQLCA
000199 GIXSQL BY REFERENCE "cobol_sql" & x"00"
000200 GIXSQL BY VALUE 0
000201 GIXSQL BY REFERENCE SQ0003
000202 GIXSQL END-CALL
000203 GIXSQL CALL STATIC "GIXSQLEndSQL"
000204 GIXSQL END-CALL.
000205 display "start transaction" upon scherm.
000206 display SQLCODE upon scherm.
000207
000208 GIXSQL* EXEC SQL OPEN employeecursor END-EXEC.
000209 GIXSQL IF GIXSQL-CI-F-pgcobol-employeecursor = ' ' THEN
000210 GIXSQL PERFORM GIXSQL-CI-P-pgcobol-employeecursor
000211 GIXSQL IF SQLCODE = 0
000212 GIXSQL MOVE 'X' TO GIXSQL-CI-F-pgcobol-employeecursor
000213 GIXSQL END-IF
000214 GIXSQL END-IF
000215 GIXSQL IF GIXSQL-CI-F-pgcobol-employeecursor = 'X' THEN
000216 GIXSQL CALL STATIC "GIXSQLCursorOpen" USING
000217 GIXSQL BY REFERENCE SQLCA
000218 GIXSQL BY REFERENCE "pgcobol_employeecursor" & x"00"
000219 GIXSQL END-CALL
000220 GIXSQL END-IF.

GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0006

LINE PG/LN A...B............................................................SEQUENCE

000221
000222 display "open cursor" upon scherm.
000223 display SQLCODE upon scherm.
000224
000225 GIXSQL* EXEC SQL FETCH employeecursor INTO :employee-table END-EXEC.
000226 GIXSQL CALL STATIC "GIXSQLStartSQL"
000227 GIXSQL END-CALL
000228 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000229 GIXSQL BY VALUE 23
000230 GIXSQL BY VALUE 4
000231 GIXSQL BY VALUE 0
000232 GIXSQL BY VALUE 256
000233 GIXSQL BY REFERENCE ENO
000234 GIXSQL BY REFERENCE 0
000235 GIXSQL END-CALL
000236 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000237 GIXSQL BY VALUE 16
000238 GIXSQL BY VALUE 10
000239 GIXSQL BY VALUE 0
000240 GIXSQL BY VALUE 0
000241 GIXSQL BY REFERENCE LNAME
000242 GIXSQL BY REFERENCE 0
000243 GIXSQL END-CALL
000244 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000245 GIXSQL BY VALUE 16
000246 GIXSQL BY VALUE 10
000247 GIXSQL BY VALUE 0
000248 GIXSQL BY VALUE 0
000249 GIXSQL BY REFERENCE FNAME
000250 GIXSQL BY REFERENCE 0
000251 GIXSQL END-CALL
000252 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000253 GIXSQL BY VALUE 16
000254 GIXSQL BY VALUE 20
000255 GIXSQL BY VALUE 0
000256 GIXSQL BY VALUE 0
000257 GIXSQL BY REFERENCE STREET
000258 GIXSQL BY REFERENCE 0
000259 GIXSQL END-CALL
000260 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000261 GIXSQL BY VALUE 16
000262 GIXSQL BY VALUE 15
000263 GIXSQL BY VALUE 0
000264 GIXSQL BY VALUE 0
000265 GIXSQL BY REFERENCE CITY
000266 GIXSQL BY REFERENCE 0
000267 GIXSQL END-CALL
000268 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000269 GIXSQL BY VALUE 16
000270 GIXSQL BY VALUE 2
000271 GIXSQL BY VALUE 0
000272 GIXSQL BY VALUE 0

GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0007

LINE PG/LN A...B............................................................SEQUENCE

000273 GIXSQL BY REFERENCE ST
000274 GIXSQL BY REFERENCE 0
000275 GIXSQL END-CALL
000276 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000277 GIXSQL BY VALUE 16
000278 GIXSQL BY VALUE 5
000279 GIXSQL BY VALUE 0
000280 GIXSQL BY VALUE 0
000281 GIXSQL BY REFERENCE ZIP
000282 GIXSQL BY REFERENCE 0
000283 GIXSQL END-CALL
000284 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000285 GIXSQL BY VALUE 16
000286 GIXSQL BY VALUE 4
000287 GIXSQL BY VALUE 0
000288 GIXSQL BY VALUE 0
000289 GIXSQL BY REFERENCE DEPT
000290 GIXSQL BY REFERENCE 0
000291 GIXSQL END-CALL
000292 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000293 GIXSQL BY VALUE 9
000294 GIXSQL BY VALUE 15
000295 GIXSQL BY VALUE -2
000296 GIXSQL BY VALUE 0
000297 GIXSQL BY REFERENCE PAYRATE
000298 GIXSQL BY REFERENCE 0
000299 GIXSQL END-CALL
000300 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000301 GIXSQL BY VALUE 9
000302 GIXSQL BY VALUE 3
000303 GIXSQL BY VALUE -2
000304 GIXSQL BY VALUE 0
000305 GIXSQL BY REFERENCE COM
000306 GIXSQL BY REFERENCE 0
000307 GIXSQL END-CALL
000308 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000309 GIXSQL BY VALUE 16
000310 GIXSQL BY VALUE 132
000311 GIXSQL BY VALUE 0
000312 GIXSQL BY VALUE 0
000313 GIXSQL BY REFERENCE MISCDATA
000314 GIXSQL BY REFERENCE 0
000315 GIXSQL END-CALL
000316 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000317 GIXSQL BY VALUE 9
000318 GIXSQL BY VALUE 4
000319 GIXSQL BY VALUE -2
000320 GIXSQL BY VALUE 0
000321 GIXSQL BY REFERENCE DNUM1
000322 GIXSQL BY REFERENCE 0
000323 GIXSQL END-CALL
000324 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING

GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0008

LINE PG/LN A...B............................................................SEQUENCE

000325 GIXSQL BY VALUE 9
000326 GIXSQL BY VALUE 4
000327 GIXSQL BY VALUE -2
000328 GIXSQL BY VALUE 0
000329 GIXSQL BY REFERENCE DNUM2
000330 GIXSQL BY REFERENCE 0
000331 GIXSQL END-CALL
000332 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000333 GIXSQL BY VALUE 9
000334 GIXSQL BY VALUE 4
000335 GIXSQL BY VALUE -2
000336 GIXSQL BY VALUE 0
000337 GIXSQL BY REFERENCE DNUM3
000338 GIXSQL BY REFERENCE 0
000339 GIXSQL END-CALL
000340 GIXSQL CALL STATIC "GIXSQLCursorFetchOne" USING
000341 GIXSQL BY REFERENCE SQLCA
000342 GIXSQL BY REFERENCE "pgcobol_employeecursor" & x"00"
000343 GIXSQL END-CALL
000344 GIXSQL CALL STATIC "GIXSQLEndSQL"
000345 GIXSQL END-CALL.
000346
000347 display "fetch cursor" upon scherm.
000348 display SQLCODE upon scherm.
000349
000350 r85-verwerk-employee.
000351
000352 move ENO to r-ENO.
000353 move LNAME to r-LNAME.
000354 move FNAME to r-FNAME.
000355 move STREET to r-STREET.
000356 move CITY to r-CITY.
000357 move ST to r-ST.
000358 move ZIP to r-ZIP.
000359 move DEPT to r-DEPT.
000360 move PAYRATE to r-PAYRATE.
000361 move COM to r-COM.
000362 move DNUM1 to r-DNUM1.
000363 move DNUM2 to r-DNUM2.
000364 move DNUM3 to r-DNUM3.
000365 move MISCDATA to miscdata-group.
000366 * move miscdata-len to r-miscdata-len.
000367 * move miscdata-text to r-miscdata-text.
000368
000369 move r-ENO to p-ENO.
000370 move r-LNAME to p-LNAME.
000371 move r-FNAME to p-FNAME.
000372 move r-STREET to p-STREET.
000373 move r-CITY to p-CITY.
000374 move r-ST to p-ST.
000375 move r-ZIP to p-ZIP.
000376 move r-DEPT to p-DEPT.

GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0009

LINE PG/LN A...B............................................................SEQUENCE

000377 move r-PAYRATE to p-PAYRATE.
000378 move r-COM to p-COM.
000379 move r-DNUM1 to p-DNUM1.
000380 move r-DNUM2 to p-DNUM2.
000381 move r-DNUM3 to p-DNUM3.
000382 move miscdata-text to p-miscdata-text.
000383
000384 display employee-row upon scherm.
000385 perform p00-print.
000386
000387 GIXSQL* EXEC SQL FETCH employeecursor INTO :employee-table END-EXEC.
000388 GIXSQL CALL STATIC "GIXSQLStartSQL"
000389 GIXSQL END-CALL
000390 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000391 GIXSQL BY VALUE 23
000392 GIXSQL BY VALUE 4
000393 GIXSQL BY VALUE 0
000394 GIXSQL BY VALUE 256
000395 GIXSQL BY REFERENCE ENO
000396 GIXSQL BY REFERENCE 0
000397 GIXSQL END-CALL
000398 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000399 GIXSQL BY VALUE 16
000400 GIXSQL BY VALUE 10
000401 GIXSQL BY VALUE 0
000402 GIXSQL BY VALUE 0
000403 GIXSQL BY REFERENCE LNAME
000404 GIXSQL BY REFERENCE 0
000405 GIXSQL END-CALL
000406 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000407 GIXSQL BY VALUE 16
000408 GIXSQL BY VALUE 10
000409 GIXSQL BY VALUE 0
000410 GIXSQL BY VALUE 0
000411 GIXSQL BY REFERENCE FNAME
000412 GIXSQL BY REFERENCE 0
000413 GIXSQL END-CALL
000414 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000415 GIXSQL BY VALUE 16
000416 GIXSQL BY VALUE 20
000417 GIXSQL BY VALUE 0
000418 GIXSQL BY VALUE 0
000419 GIXSQL BY REFERENCE STREET
000420 GIXSQL BY REFERENCE 0
000421 GIXSQL END-CALL
000422 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000423 GIXSQL BY VALUE 16
000424 GIXSQL BY VALUE 15
000425 GIXSQL BY VALUE 0
000426 GIXSQL BY VALUE 0
000427 GIXSQL BY REFERENCE CITY
000428 GIXSQL BY REFERENCE 0

GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0010

LINE PG/LN A...B............................................................SEQUENCE

000429 GIXSQL END-CALL
000430 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000431 GIXSQL BY VALUE 16
000432 GIXSQL BY VALUE 2
000433 GIXSQL BY VALUE 0
000434 GIXSQL BY VALUE 0
000435 GIXSQL BY REFERENCE ST
000436 GIXSQL BY REFERENCE 0
000437 GIXSQL END-CALL
000438 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000439 GIXSQL BY VALUE 16
000440 GIXSQL BY VALUE 5
000441 GIXSQL BY VALUE 0
000442 GIXSQL BY VALUE 0
000443 GIXSQL BY REFERENCE ZIP
000444 GIXSQL BY REFERENCE 0
000445 GIXSQL END-CALL
000446 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000447 GIXSQL BY VALUE 16
000448 GIXSQL BY VALUE 4
000449 GIXSQL BY VALUE 0
000450 GIXSQL BY VALUE 0
000451 GIXSQL BY REFERENCE DEPT
000452 GIXSQL BY REFERENCE 0
000453 GIXSQL END-CALL
000454 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000455 GIXSQL BY VALUE 9
000456 GIXSQL BY VALUE 15
000457 GIXSQL BY VALUE -2
000458 GIXSQL BY VALUE 0
000459 GIXSQL BY REFERENCE PAYRATE
000460 GIXSQL BY REFERENCE 0
000461 GIXSQL END-CALL
000462 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000463 GIXSQL BY VALUE 9
000464 GIXSQL BY VALUE 3
000465 GIXSQL BY VALUE -2
000466 GIXSQL BY VALUE 0
000467 GIXSQL BY REFERENCE COM
000468 GIXSQL BY REFERENCE 0
000469 GIXSQL END-CALL
000470 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000471 GIXSQL BY VALUE 16
000472 GIXSQL BY VALUE 132
000473 GIXSQL BY VALUE 0
000474 GIXSQL BY VALUE 0
000475 GIXSQL BY REFERENCE MISCDATA
000476 GIXSQL BY REFERENCE 0
000477 GIXSQL END-CALL
000478 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000479 GIXSQL BY VALUE 9
000480 GIXSQL BY VALUE 4

GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0011

LINE PG/LN A...B............................................................SEQUENCE

000481 GIXSQL BY VALUE -2
000482 GIXSQL BY VALUE 0
000483 GIXSQL BY REFERENCE DNUM1
000484 GIXSQL BY REFERENCE 0
000485 GIXSQL END-CALL
000486 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000487 GIXSQL BY VALUE 9
000488 GIXSQL BY VALUE 4
000489 GIXSQL BY VALUE -2
000490 GIXSQL BY VALUE 0
000491 GIXSQL BY REFERENCE DNUM2
000492 GIXSQL BY REFERENCE 0
000493 GIXSQL END-CALL
000494 GIXSQL CALL STATIC "GIXSQLSetResultParams" USING
000495 GIXSQL BY VALUE 9
000496 GIXSQL BY VALUE 4
000497 GIXSQL BY VALUE -2
000498 GIXSQL BY VALUE 0
000499 GIXSQL BY REFERENCE DNUM3
000500 GIXSQL BY REFERENCE 0
000501 GIXSQL END-CALL
000502 GIXSQL CALL STATIC "GIXSQLCursorFetchOne" USING
000503 GIXSQL BY REFERENCE SQLCA
000504 GIXSQL BY REFERENCE "pgcobol_employeecursor" & x"00"
000505 GIXSQL END-CALL
000506 GIXSQL CALL STATIC "GIXSQLEndSQL"
000507 GIXSQL END-CALL.
000508
000509 display "fetch cursor" upon scherm.
000510 display SQLCODE upon scherm.
000511
000512 r89-close-cursor.
000513
000514 GIXSQL* EXEC SQL CLOSE employeecursor END-EXEC.
000515 GIXSQL CALL STATIC "GIXSQLCursorClose" USING
000516 GIXSQL BY REFERENCE SQLCA
000517 GIXSQL BY REFERENCE "pgcobol_employeecursor" & x"00"
000518 GIXSQL END-CALL.
000519
000520 r90-init.
000521 perform s00-connect.
000522 open output fprinter.
000523
000524 r99-exit.
000525
000526 perform s99-disconnect.
000527 close fprinter.
000528 perform z99-exit.
000529
000530 z99-exit.
000531
000532 stop run.

GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0012

LINE PG/LN A...B............................................................SEQUENCE

000533
000534 s00-connect.
000535 display "DATASRC" upon scherm.
000536 display "DBUSR" upon scherm.
000537 display "DBPWD" upon scherm.
000538
000539 MOVE 'CONNECT' TO CUR-STEP.
000540 GIXSQL* EXEC SQL
000541 GIXSQL* CONNECT :DBUSR IDENTIFIED BY :DBPWD USING :DATASRC
000542 GIXSQL* CONNECT TO :DATASRC AS cobol_sql USER :DBUSR USING :DBPWD
000543 GIXSQL* CONNECT TO "pgsql://10.68.171.50:5432/cobol_gixsql"
000544 GIXSQL* USER :DBUSR USING :DBPWD
000545 GIXSQL* END-EXEC.
000546 GIXSQL CALL STATIC "GIXSQLConnect" USING
000547 GIXSQL BY REFERENCE SQLCA
000548 GIXSQL BY REFERENCE DATASRC
000549 GIXSQL BY VALUE 64
000550 GIXSQL BY REFERENCE "cobol_sql" & x"00"
000551 GIXSQL BY VALUE 0
000552 GIXSQL BY REFERENCE x"00"
000553 GIXSQL BY VALUE 0
000554 GIXSQL BY REFERENCE DBUSR
000555 GIXSQL BY VALUE 64
000556 GIXSQL BY REFERENCE DBPWD
000557 GIXSQL BY VALUE 64
000558 GIXSQL END-CALL.
000559 display "connect to database" upon scherm.
000560 display SQLCODE upon scherm.
000561
000562 s99-disconnect.
000563 display "DATASRC" upon scherm.
000564 display "DBUSR" upon scherm.
000565 display "DBPWD" upon scherm.
000566
000567 MOVE 'DISCONNECT' TO CUR-STEP.
000568 GIXSQL* EXEC SQL CONNECT RESET cobol_sql END-EXEC.
000569 GIXSQL CALL STATIC "GIXSQLConnectReset" USING
000570 GIXSQL BY REFERENCE SQLCA
000571 GIXSQL BY REFERENCE "cobol_sql" & x"00"
000572 GIXSQL BY VALUE 0
000573 GIXSQL END-CALL.
000574 GIXSQL* EXEC SQL DISCONNECT cobol_sql END-EXEC.
000575 GIXSQL CALL STATIC "GIXSQLConnectReset" USING
000576 GIXSQL BY REFERENCE SQLCA
000577 GIXSQL BY REFERENCE "cobol_sql" & x"00"
000578 GIXSQL BY VALUE 0
000579 GIXSQL END-CALL.
000580 display "disconnect from database" upon scherm.
000581 display SQLCODE upon scherm.
000582
000583 p00-print.
000584 if line-number > 50 then

GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0013

LINE PG/LN A...B............................................................SEQUENCE

000585 move 1 to line-number
000586 add 1 to page-number
000587 move page-number to f-page-number
000588 move employee-page to print-buffer
000589 write file-buffer from print-buffer
000590 move employee-header to print-buffer
000591 write file-buffer from print-buffer
000592 move employee-row to print-buffer
000593 write file-buffer from print-buffer
000594 else
000595 add 1 to page-number
000596 move employee-row to print-buffer
000597 write file-buffer from print-buffer.
000598
000599 999-PRG-ERR.
000600 display 'ERR - ' CUR-STEP ' : ' SQLCODE.
000601 display 'ERR - ' CUR-STEP ' : ' SQLERRMC(1:SQLERRML).
000602 MOVE -1 TO RETURN-CODE.
000603 GIXSQL*
000604 GIXSQL* ESQL CURSOR DECLARATIONS (START)
000605 GIXSQL GO TO GIX-SKIP-CRSR-INIT.
000606 GIXSQL GIXSQL-CI-P-pgcobol-employeecursor.
000607 GIXSQL CALL STATIC "GIXSQLCursorDeclare" USING
000608 GIXSQL BY REFERENCE SQLCA
000609 GIXSQL BY REFERENCE "cobol_sql" & x"00"
000610 GIXSQL BY VALUE 0
000611 GIXSQL BY REFERENCE "pgcobol_employeecursor" & x"00"
000612 GIXSQL BY VALUE 0
000613 GIXSQL BY REFERENCE SQ0001
000614 GIXSQL BY VALUE 0
000615 GIXSQL END-CALL.
000616 GIXSQL GIX-SKIP-CRSR-INIT.
000617 GIXSQL*
000618 GIXSQL* ESQL CURSOR DECLARATIONS (END)

0 warnings in compilation group
0 errors in compilation group
</pre>
<hr/>
Back to: [[Cobol and PostgreSQL]]

← Older revision		Revision as of 15:59, 7 November 2025
Line 1:		Line 1:
			The output of the compiler process is below. The cobc compiler process picked up the output of the GixSQQL precompilation process and created the executable program '''pgcobol'''.
	<pre>		<pre>
	GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0001		GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0001

← Older revision		Revision as of 15:57, 7 November 2025
Line 1:		Line 1:
	<~~per~~>		<pre>
	GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0001		GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0001

Pgcobol.out - Revision history

Martin at 16:21, 7 November 2025

Martin at 15:59, 7 November 2025

Martin at 15:57, 7 November 2025

Martin: Created page with " GnuCOBOL 4.0-early-dev. pgcobol.cbsql Fri Nov 7 15:14:59 2025 Page 0001 LINE PG/LN A...B............................."