Precompiler listing
Here is an example precompiler listing. Figure 1. Listing from a precompiler
5722ST1 V5R4M0 060210 Create SQL ILE C Object UPDATEPGM 02/10/06 14:30:10 Page 1 Source type...............C Object name...............TST/UPDATEPGM Source file...............*LIBL/QCSRC Member....................*OBJ Options...................*XREF Listing option............*PRINT Target release............*CURRENT INCLUDE file..............*LIBL/*SRCFILE Commit....................*CHG Allow copy of data........*YES Close SQL cursor..........*ENDACTGRP Allow blocking............*READ Delay PREPARE.............*NO Generation level..........10 Margins...................*SRCFILE Printer file..............*LIBL/QSYSPRT Date format...............*JOB Date separator............*JOB Time format...............*HMS Time separator ...........*JOB Replace...................*YES Relational database.......RCHASLKM User .....................*CURRENT RDB connect method........*DUW Default Collection........*NONE Package name..............*OBJLIB/*OBJ Created object type.......*PGM Debugging view............*NONE Dynamic User Profile......*USER Sort Sequence.............*JOB Language ID...............*JOB IBM SQL flagging..........*NOFLAG ANS flagging..............*NONE Text......................*SRCMBRTXT Source file CCSID.........37 Job CCSID.................65535 Source member changed on 02/10/06 14:25:33 5722ST1 V5R4M0 060210 Create SQL ILE C Object UPDATEPGM 02/10/06 14:30:10 Page 2 Record*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 SEQNBR Last change 1 /********************************************************************/ 100 2 /* This program is called to update the DEPTCODE of file RWDS/DPT1 */ 200 3 /* to NULL. This is run once a month to clear out the old */ 300 4 /* data. */ 400 5 /* */ 500 6 /* NOTE: Because this program was compiled with an RDB name, it is */ 600 7 /* not necessary to do a connect, as an implicit connect will take */ 700 8 /* place when the program is called. */ 800 9 /********************************************************************/ 900 10 #include <stdio.h> 1000 11 #include <stdlib.h> 1100 12 exec sql include sqlca; 1200 13 1300 14 main() 1400 15 { 1500 16 /* Just update RWDS/DPT1, setting deptcode = NULL */ 1600 17 exec sql update RWDS/DPT1 1700 18 set deptcode = NULL; 1800 19 } 1900 * * * * * E N D O F S O U R C E * * * * *Figure 2. Listing from a precompiler (continued)5722ST1 V5R4M0 060210 Create SQL ILE C Object UPDATEPGM 02/10/06 14:30:10 Page 3 CROSS REFERENCE Data Names Define Reference DEPTCODE **** COLUMN 18 DPT1 **** TABLE IN RWDS 17 RWDS **** COLLECTION 17 5722ST1 V5R4M0 060210 Create SQL ILE C Object UPDATEPGM 02/10/06 14:30:10 Page 4 DIAGNOSTIC MESSAGES MSG ID SEV RECORD TEXT SQL0088 0 17 Position 15 UPDATE applies to entire table. SQL1103 10 17 Field definitions for file DPT1 in RWDS not found. Message Summary Total Info Warning Error Severe Terminal 2 1 1 0 0 0 10 level severity errors found in source 19 Source records processed * * * * * E N D O F L I S T I N G * * * * *
Parent topic:
Listings