Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
More info on this new area that im trying to teach myself?
488 views
Skip to first unread message
A. Perry Nelson
Sep 12, 2014, 5:53:26 PM9/12/14
to
Here is the compiled of the Webprt1. So what im i doing wrong, I'm missing something in the compiles?
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 1
Command . . . . . . . . . . . . : CRTBNDRPG
Issued by . . . . . . . . . . : QSECOFR
Program . . . . . . . . . . . . : WEBRPT1
Library . . . . . . . . . . . : @AS400CGI
Text 'description' . . . . . . . : *SRCMBRTXT
Source Member . . . . . . . . . : WEBRPT1
Source File . . . . . . . . . . : CGIRPGSRC
Library . . . . . . . . . . . : @AS400CGI
CCSID . . . . . . . . . . . . : 37
Text 'description' . . . . . . . : Chpt 2 Assignment 1 Converted to Web
Last Change . . . . . . . . . . : 09/12/14 17:10:27
Generation severity level . . . : 10
Default activation group . . . . : *NO
Compiler options . . . . . . . . : *XREF *GEN *NOSECLVL *SHOWCPY
*EXPDDS *EXT *NOSHOWSKP *NOSRCSTMT
*DEBUGIO *NOEVENTF
Debugging views . . . . . . . . : *STMT
Output . . . . . . . . . . . . . : *PRINT
Optimization level . . . . . . . : *NONE
Source listing indentation . . . : *NONE
Type conversion options . . . . : *NONE
Sort sequence . . . . . . . . . : *HEX
Language identifier . . . . . . : *JOBRUN
Replace program . . . . . . . . : *YES
User profile . . . . . . . . . . : *USER
Authority . . . . . . . . . . . : *LIBCRTAUT
Truncate numeric . . . . . . . . : *YES
Fix numeric . . . . . . . . . . : *NONE
Target release . . . . . . . . . : *CURRENT
Allow null values . . . . . . . : *NO
Binding directory . . . . . . . : CGIBNDDIR
Library . . . . . . . . . . . : @AS400CGI
Activation group . . . . . . . . : QILE
Define condition names . . . . . : *NONE
Enable performance collection . : *PEP
Profiling data . . . . . . . . . : *NOCOL
Licensed Internal Code options . :
Generate program interface . . . : *NO
Include directory . . . . . . . :
Preprocessor options . . . . . . : *NONE
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 2
ine <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
umber ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
S o u r c e L i s t i n g
1 HDatFmt(*USA) TimFMT(*USA) 100101 000100
2 FCSCSTP IF F 101 DISK 100102 000200
3 F 100102 000300
4 DHttpheader C const('Content-type: text/html') 100101 000400
5 DNL C const(x'15') 100102 000500
6 DEWMoney C Const(' 0. ') 100102 000600
7 DEWDate C const(' / / ') 100102 000700
8 D 100102 000800
9 D 100101 000900
10 DWtrDta S 1024 100101 001000
11 D 100101 001100
12 DJavaDate C const('<SCRIPT - 100101 001200
More...
3=Exit F12=Cancel F19=Left F20=Right F24=More keys
13 D LANGUAGE="JavaScript"> - 100101 001300
14 D var mydate= new Date(); - 100101 001400
15 D var theyear=mydate.getFullYear(); - 100101 001500
16 D var themonth=mydate.getMonth()+1; - 100101 001600
17 D var thetoday=mydate.getDate(); - 100101 001700
18 D document.write - 100101 001800
19 D (themonth+"/"+thetoday+"/"+theyear);- 100101 001900
20 D </SCRIPT>') 100101 002000
21 D 100101 002100
22 DGetWorkLib PR Extproc('#GetWknLib') 140912 002200
23 D 100101 002300
24 DWtrWebPg PR extproc('QtmhWrStout') 100102 002400
25 D DtaVar 32676A Options (*varsize) const 100102 002500
26 D DtaVarLen 10I 0 Const 100102 002600
27 D Errorcode 8000A options(*varsize) 100102 002700
28 DWPError DS 100901 002800
29 D EBytesP 1 4B 0 100901 002900
30 D EBytesA 5 8B 0 100901 003000
31 D EMsgID 9 15 100901 003100
More...
32 D EReserved 16 16 100901 003200
33 D EData 17 56 100901 003300
34 D 100102 003400
35 D 100901 003500
36 ICSCSTP NS 01 100102 003600
37 I 1 6 0CUSTNO 090822 003700
38 I 7 16 CFNAME 090822 003800
39 I 17 31 CLNAME 090822 003900
40 I 32 51 CSTRET 090822 004000
41 I 52 66 CCITY 090822 004100
42 I 67 68 CSTATE 100101 004200
43 I 69 77 0CZIP 090822 004300
44 I 78 87 0CPHONE 090822 004400
45 I 88 95 0ORDDAT 090822 004500
46 I 96 101 2BALDUE 090822 004600
...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
48 CALLP GetWorklib(); 140912 004800
49 WtrDta = Httpheader + NL + NL + '<HTML><head>'; 100101 004900
50 Exsr $WrtStOut; 100102 005000
51 WtrDta = '<title>Compusell Listing</title>'; 100102 005100
52 Exsr $WrtStOut; 100102 005200
53 WtrDta = NL + '</head><body>'; 100911 005300
54 Exsr $WrtStOut; 100102 005400
55 WtrDta='<h1>Compusell Customer Listing'+ ' '+ Javadate +'</h1>'; 100821 005500
56 Exsr $WrtStOut; 100102 005600
57 Eval WtrDta = '<table border="1">' + NL 100101 005700
58 +'<tr>' +NL 100101 005800
59 +'<td align="right">Customer Number</td>' 100101 005900
60 +'<td align="center">Customer Name</td>' 100101 006000
61 +'<td align="right">Last Order Date</td>' 100101 006100
62 +'<td align="right">Account Bal. Due</td>' 100101 006200
63 +'</tr>'; 100101 006300
64 Exsr $WrtStout; 100101 006400
65 100901 006500
66 Read Cscstp; 100901 006600
More...
67 DOW (NOT %EOF); B01 100101 006700
68 100901 006800
69 Eval Wtrdta = '<td align="center">' + NL 01 100101 006900
70 + %trim(%char(Custno)) + '</td>' + NL 01 100101 007000
71 +'<td align="right">' + NL 01 100101 007100
72 + %trim(CFNAME) + ' '+ %trim(ClName)+'</td>' 01 100101 007200
73 +'<td align="right">' + NL 01 100101 007300
74 + %trim(%editw(Orddat:EWDATE)) + '</td>' 01 100101 007400
75 +'<td align="right">' + NL 01 100101 007500
76 + %trim(%editw(BalDue:EWmoney)) + '</td>' 01 100101 007600
77 + '</tr>'; 01 100101 007700
78 Exsr $WrtStOut; 01 100901 007800
79 100901 007900
80 Read CSCSTP; 01 100901 008000
81 enddo; E01 100101 008100
82 100101 008200
83 WtrDta = '</Table>' + NL + '</Body></HTML>' + NL; 100101 008300
84 Exsr $WrtStOut; 100101 008400
85 EVAL *INLR = *On; 090809 008500
86 Return; 090809 008600
87 090809 008700
88 Begsr $WrtStOut; 100101 008800
89 WtrWebPg(WtrDta: %len(WtrDta): WPerror); 100102 008900
90 endsr; 100101 009000
91 100901 009100
92 /End-Free 100901 009200
* * * * * E N D O F S O U R C E * * * * *
722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 4
A d d i t i o n a l D i a g n o s t i c M e s s a g e s
sg id Sv Number Seq Message text
NF7086 00 2 000200 RPG handles blocking for file CSCSTP. INFDS is updated only
when blocks of data are transferred.
* * * * E N D O F A D D I T I O N A L D I A G N O S T I C M E S S A G E S * * * * *
722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 5
C r o s s R e f e r e n c e
File and Record References:
File Device References (D=Defined)
Record
CSCSTP DISK 2D 36 66 80
Global Field References:
Field Attributes References (D=Defined M=Modified)
$WRTSTOUT BEGSR 50 52 54 56
64 78 84 88D
*INLR N(1) 85M
BALDUE P(6,2) 46D 76
RNF7031 CCITY A(15) 41D
CFNAME A(10) 38D 72
CLNAME A(15) 39D 72
RNF7031 CPHONE P(10,0) 44D
RNF7031 CSTATE A(2) 42D
RNF7031 CSTRET A(20) 40D
CUSTNO P(6,0) 37D 70
RNF7031 CZIP P(9,0) 43D
RNF7031 EBYTESA B(9,0) 30D
RNF7031 EBYTESP B(9,0) 29D
RNF7031 EDATA A(40) 33D
RNF7031 EMSGID A(7) 31D
*RNF7031 ERESERVED A(1) 32D
EWDATE CONST 7D 74
EWMONEY CONST 6D 76
GETWORKLIB PROTOTYPE 22D 48
HTTPHEADER CONST 4D 49
JAVADATE CONST 12D 55
NL CONST 5D 49 49 53
57 58 69 70
71 73 75 83
83
ORDDAT P(8,0) 45D 74
WPERROR DS(56) 28D 89
WTRDTA A(1024) 10D 49M 51M 53M
55M 57M 69M 83M
89 89
WTRWEBPG PROTOTYPE 24D 89M
Indicator References:
Indicator References (D=Defined M=Modified)
LR 85M
* * * * * E N D O F C R O S S R E F E R E N C E * * * * *
22WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 6
E x t e r n a l R e f e r e n c e s
Statically bound procedures:
Procedure References
#GetWknLib 22 48
QtmhWrStout 24 89
Imported fields:
Field Attributes Defined
No references in the source.
Exported fields:
Field Attributes Defined
No references in the source.
* * * * * E N D O F E X T E R N A L R E F E R E N C E S * * * * *
22WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 7
M e s s a g e S u m m a r y
g id Sv Number Message text
F7031 00 11 The name or indicator is not referenced.
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
*RNF7086 00 1 RPG handles blocking for the file. INFDS is updated only when
blocks of data are transferred.
* * * * * E N D O F M E S S A G E S U M M A R Y * * * * *
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 8
F i n a l S u m m a r y
Message Totals:
Information (00) . . . . . . . : 12
Warning (10) . . . . . . . : 0
Error (20) . . . . . . . : 0
Severe Error (30+) . . . . . . : 0
--------------------------------- -------
Total . . . . . . . . . . . . . : 12
Source Totals:
Records . . . . . . . . . . . . : 92
Specifications . . . . . . . . : 84
Data records . . . . . . . . . : 0
Comments . . . . . . . . . . . : 0
* * * * * E N D O F F I N A L S U M M A R Y * * * * *
B i n d D i a g n o s t i c M e s s a g e s
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
Errors were found during the binding step. See the job log for more information.
* * * * * E N D O F B I N D D I A G N O S T I C M E S S A G E S * * * * *
Program WEBRPT1 in library @AS400CGI not created.
* * * * * E N D O F C O M P I L A T I O N * * * * *
Here is the subprocedure code.
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 1
Command . . . . . . . . . . . . : CRTRPGMOD
Issued by . . . . . . . . . . : QSECOFR
Module . . . . . . . . . . . . . : #GETWKNLIB
Library . . . . . . . . . . . : @AS400CGI
Text 'description' . . . . . . . : *SRCMBRTXT
Source Member . . . . . . . . . : #GETWKNLIB
Source File . . . . . . . . . . : SUBPROSRC
Library . . . . . . . . . . . : @AS400CGI
CCSID . . . . . . . . . . . . : 37
Text 'description' . . . . . . . :
Last Change . . . . . . . . . . : 09/12/14 16:11:58
Generation severity level . . . : 10
Compiler options . . . . . . . . : *XREF *GEN *NOSECLVL *SHOWCPY
*EXPDDS *EXT *NOSHOWSKP *NOSRCSTMT
*DEBUGIO *NOEVENTF
Debugging views . . . . . . . . : *STMT
Output . . . . . . . . . . . . . : *PRINT
Optimization level . . . . . . . : *NONE
Source listing indentation . . . : *NONE
Type conversion options . . . . : *NONE
Sort sequence . . . . . . . . . : *HEX
Language identifier . . . . . . : *JOBRUN
Replace module . . . . . . . . . : *YES
Authority . . . . . . . . . . . : *LIBCRTAUT
Truncate numeric . . . . . . . . : *YES
Fix numeric . . . . . . . . . . : *NONE
Target release . . . . . . . . . : *CURRENT
Allow null values . . . . . . . : *NO
Binding directory . . . . . . . : *NONE
Define condition names . . . . . : *NONE
Enable performance collection . : *PEP
Profiling data . . . . . . . . . : *NOCOL
Licensed Internal Code options . :
Generate program interface . . . : *NO
Include directory . . . . . . . :
Preprocessor options . . . . . . : *NONE
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 2
umber ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
S o u r c e L i s t i n g
1 // Module Object Contains SubProcedure only: no main procedure 140902 000100
2 H Option(*SrcStmt:*NoDebugIO) 140912 000200
00300 H Nomain 140830 000300
00400 H 140829 000400
*--------------------------------------------------------------------*
* Compiler Options in Effect: *
*--------------------------------------------------------------------*
* Text 'description' . . . . . . . : *
* Generation severity level . . . : 10 *
* Compiler options . . . . . . . . : *XREF *GEN *
* *NOSECLVL *SHOWCPY *
* *EXPDDS *EXT *
* *NOSHOWSKP *SRCSTMT *
* *NODEBUGIO *NOEVENTF *
* Optimization level . . . . . . . : *NONE *
* Source listing indentation . . . : *NONE *
More...
* Type conversion options . . . . : *NONE *
* Sort sequence . . . . . . . . . : *HEX *
* Language identifier . . . . . . : *JOBRUN *
* Authority . . . . . . . . . . . : *LIBCRTAUT *
* Truncate numeric . . . . . . . . : *YES *
* Fix numeric . . . . . . . . . . : *NONE *
* Allow null values . . . . . . . : *NO *
* Binding directory from Command . : *NONE *
* Binding directory from Source . : *NONE *
* Enable performance collection . : *PEP *
* Profiling data . . . . . . . . . : *NOCOL *
*--------------------------------------------------------------------*
0500 D 1
0600 D#WrknLibr PR 1
0700 D 1
0800 D 1
0900 DRunCMD PR EXTPGM('QCMDEXC') 1
1000 D 512 CONST OPTIONS(*VARSIZE) 1
1100 D 15 5 CONST 1
=Exit F12=Cancel F19=Left F20=Right F24=More keys
DQCMD S 512 VARYING 140909 001200
D 140909 001300
DWrknLibrary UDS DTAARA(WorkingLib) 140909 001400
D LibrName 10 140909 001500
D 140909 001600
DCOUNTLOC S 1 0 Inz(1) 140909 001700
DLibNameAry S 10 DIM(5) 140909 001800
DI S 1 0 INZ(1) 140909 001900
D 140909 002000
D 140909 002100
// Begining Subprocedure Module Object 140902 002200
P#WrknLibr B EXPORT 140830 002300
DS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 3
<---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
D 140829 002400
// Procedure Interface 140902 002500
D 140830 002600
// Stand Alone Field DataArea Storage 140902 002700
// There are 5, 10 digits place holders in the Dataarea 140902 002800
// Name WorkingLib DataArea Object 140902 002900
D 140830 003000
D#WrknLibr PI 140909 003100
D 140908 003200
D 140908 003300
/FREE 140830 003400
Unlock WrknLibrary; // Unlock the Data-area, for the read. 140909 003500
In WrknLibrary; // Lock and Read the Dataarea 140909 003600
140909 003700
DOU COUNTLOC = 5; B01 140830 003800
For I = 1 to 5; B02 140909 003900
LibNameAry(I) = LibrName; 02 140908 004000
140909 004100
IF LibrName = *Blanks; B03 140909 004200
QCMD = ('ADDLIBLE (%trim(LIB(LibrName))) POSITION(*LAST)'); 03 140909 004300
RunCmd(QCMD:%Len(QCMD)); 03 140909 004400
Endif; E03 140909 004500
140909 004600
004700 Iter; 02 140909 004700
004800 COUNTLOC = COUNTLOC + 1; 02 140830 004800
004900 EndFor; E02 140909 004900
005000 Enddo; E01 140830 005000
005100 *INLR = *On; 140909 005100
005200 Return; 140912 005200
005300 /End-Free 140830 005300
005400 140830 005400
005500 // End Subprocedure 140902 005500
005600 140902 005600
005700 P#WrknLibr E 140830 005700
* * * * * E N D O F S O U R C E * * * * *
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 4
A d d i t i o n a l D i a g n o s t i c M e s s a g e s
Msg id Sv Statement Message text
* * * * * E N D O F A D D I T I O N A L D I A G N O S T I C M E S S A G E S * * * * *
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 5
C r o s s R e f e r e n c e
File and Record References:
File Device References (D=Defined)
Record
No references in the source.
Global Field References:
Field Attributes References (D=Defined M=Modified)
*INLR N(1) 005100M
#WRKNLIBR PROTOTYPE 000600D 002300 003100 005700
COUNTLOC P(1,0) 001700D 003800 004800M 004800
I P(1,0) 001900D 003900 004000
LIBNAMEARY(5) A(10) 001800D 004000M
LIBRNAME A(10) 001500D 004000 004200
QCMD A(512) 001200D 004300M 004400 004400
VARYING
RUNCMD PROTOTYPE 000900D 004400M
WRKNLIBRARY DS(10) 001400D 003500 003600
Field References for subprocedure #WRKNLIBR
Field Attributes References (D=Defined M=Modified)
No references in the source.
Indicator References:
Indicator References (D=Defined M=Modified)
LR 005100M
* * * * * E N D O F C R O S S R E F E R E N C E * * * * *
722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 6
E x t e r n a l R e f e r e n c e s
Statically bound procedures:
Procedure References
No references in the source.
Imported fields:
Field Attributes Defined
No references in the source.
Exported fields:
Field Attributes Defined
No references in the source.
* * * * * E N D O F E X T E R N A L R E F E R E N C E S * * * * *
722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 7
M e s s a g e S u m m a r y
sg id Sv Number Message text
* * * * * E N D O F M E S S A G E S U M M A R Y * * * * *
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 8
F i n a l S u m m a r y
Message Totals:
Information (00) . . . . . . . : 0
Warning (10) . . . . . . . : 0
Error (20) . . . . . . . : 0
Severe Error (30+) . . . . . . : 0
--------------------------------- -------
Total . . . . . . . . . . . . . : 0
Source Totals:
Records . . . . . . . . . . . . : 57
Specifications . . . . . . . . : 41
Data records . . . . . . . . . : 0
Comments . . . . . . . . . . . : 7
* * * * * E N D O F F I N A L S U M M A R Y * * * * *
Module #GETWKNLIB placed in library @AS400CGI. 00 highest severity. Created on 09/12/14 at 17:41:16.
* * * * * E N D O F C O M P I L A T I O N * * * * *
Here is the binding report joblog.
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
5722SS1 V5R4M0 060210 Job Log CHOCTAW 09/12/14 17:11:16 Page 1
Job name . . . . . . . . . . : WEBRPT1 User . . . . . . : QSECOFR Number . . . . . . . . . . . : 020350
Job description . . . . . . : QBATCH Library . . . . . : QGPL
MSGID TYPE SEV DATE TIME FROM PGM LIBRARY INST TO PGM LIBRARY INST
CPF1124 Information 00 09/12/14 17:11:01.924288 QWTPIIPP QSYS 0671 *EXT *N
Message . . . . : Job 020350/QSECOFR/WEBRPT1 started on 09/12/14 at 17:11:01
in subsystem QBASE in QSYS. Job entered system on 09/12/14 at 17:11:01.
CPI1125 Information 00 09/12/14 17:11:01.925088 QWTPCRJA QSYS 010F *EXT *N
Message . . . . : Job 020350/QSECOFR/WEBRPT1 submitted.
Cause . . . . . : Job 020350/QSECOFR/WEBRPT1 submitted to job queue QBATCH
in QGPL from job 020341/QSECOFR/ARLAMS250A. Job 020350/QSECOFR/WEBRPT1 was
started using the Submit Job (SBMJOB) command with the following job
attributes: JOBPTY(5) OUTPTY(5) PRTTXT() RTGDTA(QCMDB) SYSLIBL(QSYS
QSYS2 QHLPSYS QUSRSYS) CURLIB(*CRTDFT) INLLIBL(QGPL QTEMP)
INLASPGRP(*NONE) LOG(4 00 *NOLIST) LOGCLPGM(*NO) LOGOUTPUT(*JOBEND)
OUTQ(/*DEV) PRTDEV(PRT01) INQMSGRPY(*RQD) HOLD(*NO) DATE(*SYSVAL)
SWS(00000000) MSGQ(QUSRSYS/QSECOFR) CCSID(65535) SRTSEQ(*N/*HEX)
LANGID(ENU) CNTRYID(US) JOBMSGQMX(16) JOBMSGQFL(*NOWRAP) ALWMLTTHD(*NO)
SPLFACN(*KEEP).
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
*NONE Request 09/12/14 17:11:01.925616 QWTSCSBJ *N QCMD QSYS 0194
Message . . . . : - CRTBNDRPG PGM(@AS400CGI/WEBRPT1)
SRCFILE(@AS400CGI/CGIRPGSRC) SRCMBR(WEBRPT1) DFTACTGRP(*NO)
BNDDIR(@AS400CGI/CGIBNDDIR) REPLACE(*YES)
CPD5D02 Diagnostic 30 09/12/14 17:11:15.887240 QBNBIND QSYS *STMT QBNBIND QSYS *STMT
From module . . . . . . . . : QBNBSYMR
From procedure . . . . . . : QBNBSYMR__UnresolvedReferenceIterator
Statement . . . . . . . . . : 31
To module . . . . . . . . . : QBNBSYMR
To procedure . . . . . . . : QBNBSYMR__SignalUnresolvedReferences
Statement . . . . . . . . . : 8
Message . . . . : Definition not found for symbol '#GetWknLib'.
Cause . . . . . : No definition was found for reference #GetWknLib in
*MODULE object WEBRPT1 in library QTEMP. The definition either does not
exist or is not of the same data or procedure type as the reference.
Recovery . . . : Try the Create Program (CRTPGM) command again, supplying
an object that contains a definition for symbol #GetWknLib.
RNS9301 Completion 50 09/12/14 17:11:16.311296 QRN4CPP QDEVTOOLS *STMT QCMD QSYS 01C7
From module . . . . . . . . : GRP4CPP
From procedure . . . . . . : cleanup
Statement . . . . . . . . . : 19
Message . . . . : Program WEBRPT1 in library @AS400CGI not created.
Cause . . . . . : Program WEBRPT1 could not be created in library @AS400CGI.
Display the job log (using the DSPJOBLOG command) to determine why the
program could not be created. Recovery . . . : Correct the errors and try
the request again.
PC0904 Completion 00 09/12/14 17:11:16.432288 QWCCCRVC QSYS 00A4 QRN4CPP QDEVTOOLS *STMT
To module . . . . . . . . . : GRP4CPP
To procedure . . . . . . . : update_dtaara
Statement . . . . . . . . . : 8
Message . . . . : Data area RETURNCODE created in library QTEMP.
NS9310 Escape 50 09/12/14 17:11:16.432472 QRN4CPP QDEVTOOLS *STMT QCMD QSYS 01C7
From module . . . . . . . . : GRP4CPP
From procedure . . . . . . : endcomp
Statement . . . . . . . . . : 20
Message . . . . : Compilation failed. Program WEBRPT1 not created in library
@AS400CGI.
5722SS1 V5R4M0 060210 Job Log CHOCTAW 09/12/14 17:11:16 Page 2
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
Job name . . . . . . . . . . : WEBRPT1 User . . . . . . : QSECOFR Number . . . . . . . . . . . : 020350
Job description . . . . . . : QBATCH Library . . . . . : QGPL
MSGID TYPE SEV DATE TIME FROM PGM LIBRARY INST TO PGM LIBRARY INST
Cause . . . . . : Compilation failure normally occurs when the severity of
issued messages exceeds the value specified for the GENLVL parameter on the
CRTBNDRPG command. See the compiler listing or the job log for error
messages. Recovery . . . : Correct the errors or change the value
specified for the GENLVL parameter. Compile again.
CPC2402 Completion 50 09/12/14 17:11:16.435904 QCMD QSYS 0668 *EXT *N
Message . . . . : Job ended. Cancel message received at command processor.
Cause . . . . . : A message with a severity equal to or exceeding the end
severity was received at the command processor. Recovery . . . : See the
messages previously listed to determine the message that caused the job to
be ended. Correct the errors, and then try the request again.
CPC2191 Completion 00 09/12/14 17:11:16.486112 QLIDLOBJ QSYS 051B QLICLLIB QSYS 05F3
Message . . . . : Object RETURNCODE in QTEMP type *DTAARA deleted.
CPF1164 Completion 00 09/12/14 17:11:16.486384 QWTMCEOJ QSYS 00D9 *EXT *N
Message . . . . : Job 020350/QSECOFR/WEBRPT1 ended on 09/12/14 at 17:11:16;
1 seconds used; end code 20 .
Cause . . . . . : Job 020350/QSECOFR/WEBRPT1 completed on 09/12/14 at
17:11:16 after it used 1 seconds processing unit time. The job had ending
code 20. The job ended after 1 routing steps with a secondary ending code of
0. The job ending codes and their meanings are as follows: 0 - The job
completed normally. 10 - The job completed normally during controlled ending
or controlled subsystem ending. 20 - The job exceeded end severity (ENDSEV
job attribute). 30 - The job ended abnormally. 40 - The job ended before
becoming active. 50 - The job ended while the job was active. 60 - The
subsystem ended abnormally while the job was active. 70 - The system ended
abnormally while the job was active. 80 - The job ended (ENDJOBABN command).
90 - The job was forced to end after the time limit ended (ENDJOBABN
command). Recovery . . . : For more information, see the Work Management
topic in the Information Center,
http://www.ibm.com/eserver/iseries/infocenter.
Here is the main error of the report above.
SRCFILE(@AS400CGI/CGIRPGSRC) SRCMBR(WEBRPT1) DFTACTGRP(*NO)
BNDDIR(@AS400CGI/CGIBNDDIR) REPLACE(*YES)
CPD5D02 Diagnostic 30 09/12/14 17:11:15.887240 QBNBIND QSYS *STMT QBNBIND QSYS *STMT
From module . . . . . . . . : QBNBSYMR
From procedure . . . . . . : QBNBSYMR__UnresolvedReferenceIterator
Statement . . . . . . . . . : 31
To module . . . . . . . . . : QBNBSYMR
To procedure . . . . . . . : QBNBSYMR__SignalUnresolvedReferences
Statement . . . . . . . . . : 8
Message . . . . : Definition not found for symbol '#GetWknLib'.
Cause . . . . . : No definition was found for reference #GetWknLib in
*MODULE object WEBRPT1 in library QTEMP. The definition either does not
exist or is not of the same data or procedure type as the reference.
Recovery . . . : Try the Create Program (CRTPGM) command again, supplying
an object that contains a definition for symbol #GetWknLib.
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 1
Command . . . . . . . . . . . . : CRTBNDRPG
Issued by . . . . . . . . . . : QSECOFR
Program . . . . . . . . . . . . : WEBRPT1
Library . . . . . . . . . . . : @AS400CGI
Text 'description' . . . . . . . : *SRCMBRTXT
Source Member . . . . . . . . . : WEBRPT1
Source File . . . . . . . . . . : CGIRPGSRC
Library . . . . . . . . . . . : @AS400CGI
CCSID . . . . . . . . . . . . : 37
Text 'description' . . . . . . . : Chpt 2 Assignment 1 Converted to Web
Last Change . . . . . . . . . . : 09/12/14 17:10:27
Generation severity level . . . : 10
Default activation group . . . . : *NO
Compiler options . . . . . . . . : *XREF *GEN *NOSECLVL *SHOWCPY
*EXPDDS *EXT *NOSHOWSKP *NOSRCSTMT
*DEBUGIO *NOEVENTF
Debugging views . . . . . . . . : *STMT
Output . . . . . . . . . . . . . : *PRINT
Optimization level . . . . . . . : *NONE
Source listing indentation . . . : *NONE
Type conversion options . . . . : *NONE
Sort sequence . . . . . . . . . : *HEX
Language identifier . . . . . . : *JOBRUN
Replace program . . . . . . . . : *YES
User profile . . . . . . . . . . : *USER
Authority . . . . . . . . . . . : *LIBCRTAUT
Truncate numeric . . . . . . . . : *YES
Fix numeric . . . . . . . . . . : *NONE
Target release . . . . . . . . . : *CURRENT
Allow null values . . . . . . . : *NO
Binding directory . . . . . . . : CGIBNDDIR
Library . . . . . . . . . . . : @AS400CGI
Activation group . . . . . . . . : QILE
Define condition names . . . . . : *NONE
Enable performance collection . : *PEP
Profiling data . . . . . . . . . : *NOCOL
Licensed Internal Code options . :
Generate program interface . . . : *NO
Include directory . . . . . . . :
Preprocessor options . . . . . . : *NONE
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 2
ine <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
umber ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
S o u r c e L i s t i n g
1 HDatFmt(*USA) TimFMT(*USA) 100101 000100
2 FCSCSTP IF F 101 DISK 100102 000200
3 F 100102 000300
4 DHttpheader C const('Content-type: text/html') 100101 000400
5 DNL C const(x'15') 100102 000500
6 DEWMoney C Const(' 0. ') 100102 000600
7 DEWDate C const(' / / ') 100102 000700
8 D 100102 000800
9 D 100101 000900
10 DWtrDta S 1024 100101 001000
11 D 100101 001100
12 DJavaDate C const('<SCRIPT - 100101 001200
More...
3=Exit F12=Cancel F19=Left F20=Right F24=More keys
13 D LANGUAGE="JavaScript"> - 100101 001300
14 D var mydate= new Date(); - 100101 001400
15 D var theyear=mydate.getFullYear(); - 100101 001500
16 D var themonth=mydate.getMonth()+1; - 100101 001600
17 D var thetoday=mydate.getDate(); - 100101 001700
18 D document.write - 100101 001800
19 D (themonth+"/"+thetoday+"/"+theyear);- 100101 001900
20 D </SCRIPT>') 100101 002000
21 D 100101 002100
22 DGetWorkLib PR Extproc('#GetWknLib') 140912 002200
23 D 100101 002300
24 DWtrWebPg PR extproc('QtmhWrStout') 100102 002400
25 D DtaVar 32676A Options (*varsize) const 100102 002500
26 D DtaVarLen 10I 0 Const 100102 002600
27 D Errorcode 8000A options(*varsize) 100102 002700
28 DWPError DS 100901 002800
29 D EBytesP 1 4B 0 100901 002900
30 D EBytesA 5 8B 0 100901 003000
31 D EMsgID 9 15 100901 003100
More...
32 D EReserved 16 16 100901 003200
33 D EData 17 56 100901 003300
34 D 100102 003400
35 D 100901 003500
36 ICSCSTP NS 01 100102 003600
37 I 1 6 0CUSTNO 090822 003700
38 I 7 16 CFNAME 090822 003800
39 I 17 31 CLNAME 090822 003900
40 I 32 51 CSTRET 090822 004000
41 I 52 66 CCITY 090822 004100
42 I 67 68 CSTATE 100101 004200
43 I 69 77 0CZIP 090822 004300
44 I 78 87 0CPHONE 090822 004400
45 I 88 95 0ORDDAT 090822 004500
46 I 96 101 2BALDUE 090822 004600
...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
48 CALLP GetWorklib(); 140912 004800
49 WtrDta = Httpheader + NL + NL + '<HTML><head>'; 100101 004900
50 Exsr $WrtStOut; 100102 005000
51 WtrDta = '<title>Compusell Listing</title>'; 100102 005100
52 Exsr $WrtStOut; 100102 005200
53 WtrDta = NL + '</head><body>'; 100911 005300
54 Exsr $WrtStOut; 100102 005400
55 WtrDta='<h1>Compusell Customer Listing'+ ' '+ Javadate +'</h1>'; 100821 005500
56 Exsr $WrtStOut; 100102 005600
57 Eval WtrDta = '<table border="1">' + NL 100101 005700
58 +'<tr>' +NL 100101 005800
59 +'<td align="right">Customer Number</td>' 100101 005900
60 +'<td align="center">Customer Name</td>' 100101 006000
61 +'<td align="right">Last Order Date</td>' 100101 006100
62 +'<td align="right">Account Bal. Due</td>' 100101 006200
63 +'</tr>'; 100101 006300
64 Exsr $WrtStout; 100101 006400
65 100901 006500
66 Read Cscstp; 100901 006600
More...
67 DOW (NOT %EOF); B01 100101 006700
68 100901 006800
69 Eval Wtrdta = '<td align="center">' + NL 01 100101 006900
70 + %trim(%char(Custno)) + '</td>' + NL 01 100101 007000
71 +'<td align="right">' + NL 01 100101 007100
72 + %trim(CFNAME) + ' '+ %trim(ClName)+'</td>' 01 100101 007200
73 +'<td align="right">' + NL 01 100101 007300
74 + %trim(%editw(Orddat:EWDATE)) + '</td>' 01 100101 007400
75 +'<td align="right">' + NL 01 100101 007500
76 + %trim(%editw(BalDue:EWmoney)) + '</td>' 01 100101 007600
77 + '</tr>'; 01 100101 007700
78 Exsr $WrtStOut; 01 100901 007800
79 100901 007900
80 Read CSCSTP; 01 100901 008000
81 enddo; E01 100101 008100
82 100101 008200
83 WtrDta = '</Table>' + NL + '</Body></HTML>' + NL; 100101 008300
84 Exsr $WrtStOut; 100101 008400
85 EVAL *INLR = *On; 090809 008500
86 Return; 090809 008600
87 090809 008700
88 Begsr $WrtStOut; 100101 008800
89 WtrWebPg(WtrDta: %len(WtrDta): WPerror); 100102 008900
90 endsr; 100101 009000
91 100901 009100
92 /End-Free 100901 009200
* * * * * E N D O F S O U R C E * * * * *
722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 4
A d d i t i o n a l D i a g n o s t i c M e s s a g e s
sg id Sv Number Seq Message text
NF7086 00 2 000200 RPG handles blocking for file CSCSTP. INFDS is updated only
when blocks of data are transferred.
* * * * E N D O F A D D I T I O N A L D I A G N O S T I C M E S S A G E S * * * * *
722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 5
C r o s s R e f e r e n c e
File and Record References:
File Device References (D=Defined)
Record
CSCSTP DISK 2D 36 66 80
Global Field References:
Field Attributes References (D=Defined M=Modified)
$WRTSTOUT BEGSR 50 52 54 56
64 78 84 88D
*INLR N(1) 85M
BALDUE P(6,2) 46D 76
RNF7031 CCITY A(15) 41D
CFNAME A(10) 38D 72
CLNAME A(15) 39D 72
RNF7031 CPHONE P(10,0) 44D
RNF7031 CSTATE A(2) 42D
RNF7031 CSTRET A(20) 40D
CUSTNO P(6,0) 37D 70
RNF7031 CZIP P(9,0) 43D
RNF7031 EBYTESA B(9,0) 30D
RNF7031 EBYTESP B(9,0) 29D
RNF7031 EDATA A(40) 33D
RNF7031 EMSGID A(7) 31D
*RNF7031 ERESERVED A(1) 32D
EWDATE CONST 7D 74
EWMONEY CONST 6D 76
GETWORKLIB PROTOTYPE 22D 48
HTTPHEADER CONST 4D 49
JAVADATE CONST 12D 55
NL CONST 5D 49 49 53
57 58 69 70
71 73 75 83
83
ORDDAT P(8,0) 45D 74
WPERROR DS(56) 28D 89
WTRDTA A(1024) 10D 49M 51M 53M
55M 57M 69M 83M
89 89
WTRWEBPG PROTOTYPE 24D 89M
Indicator References:
Indicator References (D=Defined M=Modified)
LR 85M
* * * * * E N D O F C R O S S R E F E R E N C E * * * * *
22WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 6
E x t e r n a l R e f e r e n c e s
Statically bound procedures:
Procedure References
#GetWknLib 22 48
QtmhWrStout 24 89
Imported fields:
Field Attributes Defined
No references in the source.
Exported fields:
Field Attributes Defined
No references in the source.
* * * * * E N D O F E X T E R N A L R E F E R E N C E S * * * * *
22WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 7
M e s s a g e S u m m a r y
g id Sv Number Message text
F7031 00 11 The name or indicator is not referenced.
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
*RNF7086 00 1 RPG handles blocking for the file. INFDS is updated only when
blocks of data are transferred.
* * * * * E N D O F M E S S A G E S U M M A R Y * * * * *
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/WEBRPT1 CHOCTAW 09/12/14 17:11:02 Page 8
F i n a l S u m m a r y
Message Totals:
Information (00) . . . . . . . : 12
Warning (10) . . . . . . . : 0
Error (20) . . . . . . . : 0
Severe Error (30+) . . . . . . : 0
--------------------------------- -------
Total . . . . . . . . . . . . . : 12
Source Totals:
Records . . . . . . . . . . . . : 92
Specifications . . . . . . . . : 84
Data records . . . . . . . . . : 0
Comments . . . . . . . . . . . : 0
* * * * * E N D O F F I N A L S U M M A R Y * * * * *
B i n d D i a g n o s t i c M e s s a g e s
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
Errors were found during the binding step. See the job log for more information.
* * * * * E N D O F B I N D D I A G N O S T I C M E S S A G E S * * * * *
Program WEBRPT1 in library @AS400CGI not created.
* * * * * E N D O F C O M P I L A T I O N * * * * *
Here is the subprocedure code.
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 1
Command . . . . . . . . . . . . : CRTRPGMOD
Issued by . . . . . . . . . . : QSECOFR
Module . . . . . . . . . . . . . : #GETWKNLIB
Library . . . . . . . . . . . : @AS400CGI
Text 'description' . . . . . . . : *SRCMBRTXT
Source Member . . . . . . . . . : #GETWKNLIB
Source File . . . . . . . . . . : SUBPROSRC
Library . . . . . . . . . . . : @AS400CGI
CCSID . . . . . . . . . . . . : 37
Text 'description' . . . . . . . :
Last Change . . . . . . . . . . : 09/12/14 16:11:58
Generation severity level . . . : 10
Compiler options . . . . . . . . : *XREF *GEN *NOSECLVL *SHOWCPY
*EXPDDS *EXT *NOSHOWSKP *NOSRCSTMT
*DEBUGIO *NOEVENTF
Debugging views . . . . . . . . : *STMT
Output . . . . . . . . . . . . . : *PRINT
Optimization level . . . . . . . : *NONE
Source listing indentation . . . : *NONE
Type conversion options . . . . : *NONE
Sort sequence . . . . . . . . . : *HEX
Language identifier . . . . . . : *JOBRUN
Replace module . . . . . . . . . : *YES
Authority . . . . . . . . . . . : *LIBCRTAUT
Truncate numeric . . . . . . . . : *YES
Fix numeric . . . . . . . . . . : *NONE
Target release . . . . . . . . . : *CURRENT
Allow null values . . . . . . . : *NO
Binding directory . . . . . . . : *NONE
Define condition names . . . . . : *NONE
Enable performance collection . : *PEP
Profiling data . . . . . . . . . : *NOCOL
Licensed Internal Code options . :
Generate program interface . . . : *NO
Include directory . . . . . . . :
Preprocessor options . . . . . . : *NONE
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 2
umber ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
S o u r c e L i s t i n g
1 // Module Object Contains SubProcedure only: no main procedure 140902 000100
2 H Option(*SrcStmt:*NoDebugIO) 140912 000200
00300 H Nomain 140830 000300
00400 H 140829 000400
*--------------------------------------------------------------------*
* Compiler Options in Effect: *
*--------------------------------------------------------------------*
* Text 'description' . . . . . . . : *
* Generation severity level . . . : 10 *
* Compiler options . . . . . . . . : *XREF *GEN *
* *NOSECLVL *SHOWCPY *
* *EXPDDS *EXT *
* *NOSHOWSKP *SRCSTMT *
* *NODEBUGIO *NOEVENTF *
* Optimization level . . . . . . . : *NONE *
* Source listing indentation . . . : *NONE *
More...
* Type conversion options . . . . : *NONE *
* Sort sequence . . . . . . . . . : *HEX *
* Language identifier . . . . . . : *JOBRUN *
* Authority . . . . . . . . . . . : *LIBCRTAUT *
* Truncate numeric . . . . . . . . : *YES *
* Fix numeric . . . . . . . . . . : *NONE *
* Allow null values . . . . . . . : *NO *
* Binding directory from Command . : *NONE *
* Binding directory from Source . : *NONE *
* Enable performance collection . : *PEP *
* Profiling data . . . . . . . . . : *NOCOL *
*--------------------------------------------------------------------*
0500 D 1
0600 D#WrknLibr PR 1
0700 D 1
0800 D 1
0900 DRunCMD PR EXTPGM('QCMDEXC') 1
1000 D 512 CONST OPTIONS(*VARSIZE) 1
1100 D 15 5 CONST 1
=Exit F12=Cancel F19=Left F20=Right F24=More keys
DQCMD S 512 VARYING 140909 001200
D 140909 001300
DWrknLibrary UDS DTAARA(WorkingLib) 140909 001400
D LibrName 10 140909 001500
D 140909 001600
DCOUNTLOC S 1 0 Inz(1) 140909 001700
DLibNameAry S 10 DIM(5) 140909 001800
DI S 1 0 INZ(1) 140909 001900
D 140909 002000
D 140909 002100
// Begining Subprocedure Module Object 140902 002200
P#WrknLibr B EXPORT 140830 002300
DS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 3
<---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
D 140829 002400
// Procedure Interface 140902 002500
D 140830 002600
// Stand Alone Field DataArea Storage 140902 002700
// There are 5, 10 digits place holders in the Dataarea 140902 002800
// Name WorkingLib DataArea Object 140902 002900
D 140830 003000
D#WrknLibr PI 140909 003100
D 140908 003200
D 140908 003300
/FREE 140830 003400
Unlock WrknLibrary; // Unlock the Data-area, for the read. 140909 003500
In WrknLibrary; // Lock and Read the Dataarea 140909 003600
140909 003700
DOU COUNTLOC = 5; B01 140830 003800
For I = 1 to 5; B02 140909 003900
LibNameAry(I) = LibrName; 02 140908 004000
140909 004100
IF LibrName = *Blanks; B03 140909 004200
QCMD = ('ADDLIBLE (%trim(LIB(LibrName))) POSITION(*LAST)'); 03 140909 004300
RunCmd(QCMD:%Len(QCMD)); 03 140909 004400
Endif; E03 140909 004500
140909 004600
004700 Iter; 02 140909 004700
004800 COUNTLOC = COUNTLOC + 1; 02 140830 004800
004900 EndFor; E02 140909 004900
005000 Enddo; E01 140830 005000
005100 *INLR = *On; 140909 005100
005200 Return; 140912 005200
005300 /End-Free 140830 005300
005400 140830 005400
005500 // End Subprocedure 140902 005500
005600 140902 005600
005700 P#WrknLibr E 140830 005700
* * * * * E N D O F S O U R C E * * * * *
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 4
A d d i t i o n a l D i a g n o s t i c M e s s a g e s
Msg id Sv Statement Message text
* * * * * E N D O F A D D I T I O N A L D I A G N O S T I C M E S S A G E S * * * * *
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 5
C r o s s R e f e r e n c e
File and Record References:
File Device References (D=Defined)
Record
No references in the source.
Global Field References:
Field Attributes References (D=Defined M=Modified)
*INLR N(1) 005100M
#WRKNLIBR PROTOTYPE 000600D 002300 003100 005700
COUNTLOC P(1,0) 001700D 003800 004800M 004800
I P(1,0) 001900D 003900 004000
LIBNAMEARY(5) A(10) 001800D 004000M
LIBRNAME A(10) 001500D 004000 004200
QCMD A(512) 001200D 004300M 004400 004400
VARYING
RUNCMD PROTOTYPE 000900D 004400M
WRKNLIBRARY DS(10) 001400D 003500 003600
Field References for subprocedure #WRKNLIBR
Field Attributes References (D=Defined M=Modified)
No references in the source.
Indicator References:
Indicator References (D=Defined M=Modified)
LR 005100M
* * * * * E N D O F C R O S S R E F E R E N C E * * * * *
722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 6
E x t e r n a l R e f e r e n c e s
Statically bound procedures:
Procedure References
No references in the source.
Imported fields:
Field Attributes Defined
No references in the source.
Exported fields:
Field Attributes Defined
No references in the source.
* * * * * E N D O F E X T E R N A L R E F E R E N C E S * * * * *
722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 7
M e s s a g e S u m m a r y
sg id Sv Number Message text
* * * * * E N D O F M E S S A G E S U M M A R Y * * * * *
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
5722WDS V5R4M0 060210 RN IBM ILE RPG @AS400CGI/#GETWKNLIB CHOCTAW 09/12/14 17:41:15 Page 8
F i n a l S u m m a r y
Message Totals:
Information (00) . . . . . . . : 0
Warning (10) . . . . . . . : 0
Error (20) . . . . . . . : 0
Severe Error (30+) . . . . . . : 0
--------------------------------- -------
Total . . . . . . . . . . . . . : 0
Source Totals:
Records . . . . . . . . . . . . : 57
Specifications . . . . . . . . : 41
Data records . . . . . . . . . : 0
Comments . . . . . . . . . . . : 7
* * * * * E N D O F F I N A L S U M M A R Y * * * * *
Module #GETWKNLIB placed in library @AS400CGI. 00 highest severity. Created on 09/12/14 at 17:41:16.
* * * * * E N D O F C O M P I L A T I O N * * * * *
Here is the binding report joblog.
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
5722SS1 V5R4M0 060210 Job Log CHOCTAW 09/12/14 17:11:16 Page 1
Job name . . . . . . . . . . : WEBRPT1 User . . . . . . : QSECOFR Number . . . . . . . . . . . : 020350
Job description . . . . . . : QBATCH Library . . . . . : QGPL
MSGID TYPE SEV DATE TIME FROM PGM LIBRARY INST TO PGM LIBRARY INST
CPF1124 Information 00 09/12/14 17:11:01.924288 QWTPIIPP QSYS 0671 *EXT *N
Message . . . . : Job 020350/QSECOFR/WEBRPT1 started on 09/12/14 at 17:11:01
in subsystem QBASE in QSYS. Job entered system on 09/12/14 at 17:11:01.
CPI1125 Information 00 09/12/14 17:11:01.925088 QWTPCRJA QSYS 010F *EXT *N
Message . . . . : Job 020350/QSECOFR/WEBRPT1 submitted.
Cause . . . . . : Job 020350/QSECOFR/WEBRPT1 submitted to job queue QBATCH
in QGPL from job 020341/QSECOFR/ARLAMS250A. Job 020350/QSECOFR/WEBRPT1 was
started using the Submit Job (SBMJOB) command with the following job
attributes: JOBPTY(5) OUTPTY(5) PRTTXT() RTGDTA(QCMDB) SYSLIBL(QSYS
QSYS2 QHLPSYS QUSRSYS) CURLIB(*CRTDFT) INLLIBL(QGPL QTEMP)
INLASPGRP(*NONE) LOG(4 00 *NOLIST) LOGCLPGM(*NO) LOGOUTPUT(*JOBEND)
OUTQ(/*DEV) PRTDEV(PRT01) INQMSGRPY(*RQD) HOLD(*NO) DATE(*SYSVAL)
SWS(00000000) MSGQ(QUSRSYS/QSECOFR) CCSID(65535) SRTSEQ(*N/*HEX)
LANGID(ENU) CNTRYID(US) JOBMSGQMX(16) JOBMSGQFL(*NOWRAP) ALWMLTTHD(*NO)
SPLFACN(*KEEP).
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
*NONE Request 09/12/14 17:11:01.925616 QWTSCSBJ *N QCMD QSYS 0194
Message . . . . : - CRTBNDRPG PGM(@AS400CGI/WEBRPT1)
SRCFILE(@AS400CGI/CGIRPGSRC) SRCMBR(WEBRPT1) DFTACTGRP(*NO)
BNDDIR(@AS400CGI/CGIBNDDIR) REPLACE(*YES)
CPD5D02 Diagnostic 30 09/12/14 17:11:15.887240 QBNBIND QSYS *STMT QBNBIND QSYS *STMT
From module . . . . . . . . : QBNBSYMR
From procedure . . . . . . : QBNBSYMR__UnresolvedReferenceIterator
Statement . . . . . . . . . : 31
To module . . . . . . . . . : QBNBSYMR
To procedure . . . . . . . : QBNBSYMR__SignalUnresolvedReferences
Statement . . . . . . . . . : 8
Message . . . . : Definition not found for symbol '#GetWknLib'.
Cause . . . . . : No definition was found for reference #GetWknLib in
*MODULE object WEBRPT1 in library QTEMP. The definition either does not
exist or is not of the same data or procedure type as the reference.
Recovery . . . : Try the Create Program (CRTPGM) command again, supplying
an object that contains a definition for symbol #GetWknLib.
RNS9301 Completion 50 09/12/14 17:11:16.311296 QRN4CPP QDEVTOOLS *STMT QCMD QSYS 01C7
From module . . . . . . . . : GRP4CPP
From procedure . . . . . . : cleanup
Statement . . . . . . . . . : 19
Message . . . . : Program WEBRPT1 in library @AS400CGI not created.
Cause . . . . . : Program WEBRPT1 could not be created in library @AS400CGI.
Display the job log (using the DSPJOBLOG command) to determine why the
program could not be created. Recovery . . . : Correct the errors and try
the request again.
PC0904 Completion 00 09/12/14 17:11:16.432288 QWCCCRVC QSYS 00A4 QRN4CPP QDEVTOOLS *STMT
To module . . . . . . . . . : GRP4CPP
To procedure . . . . . . . : update_dtaara
Statement . . . . . . . . . : 8
Message . . . . : Data area RETURNCODE created in library QTEMP.
NS9310 Escape 50 09/12/14 17:11:16.432472 QRN4CPP QDEVTOOLS *STMT QCMD QSYS 01C7
From module . . . . . . . . : GRP4CPP
From procedure . . . . . . : endcomp
Statement . . . . . . . . . : 20
Message . . . . : Compilation failed. Program WEBRPT1 not created in library
@AS400CGI.
5722SS1 V5R4M0 060210 Job Log CHOCTAW 09/12/14 17:11:16 Page 2
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+....3
Job name . . . . . . . . . . : WEBRPT1 User . . . . . . : QSECOFR Number . . . . . . . . . . . : 020350
Job description . . . . . . : QBATCH Library . . . . . : QGPL
MSGID TYPE SEV DATE TIME FROM PGM LIBRARY INST TO PGM LIBRARY INST
Cause . . . . . : Compilation failure normally occurs when the severity of
issued messages exceeds the value specified for the GENLVL parameter on the
CRTBNDRPG command. See the compiler listing or the job log for error
messages. Recovery . . . : Correct the errors or change the value
specified for the GENLVL parameter. Compile again.
CPC2402 Completion 50 09/12/14 17:11:16.435904 QCMD QSYS 0668 *EXT *N
Message . . . . : Job ended. Cancel message received at command processor.
Cause . . . . . : A message with a severity equal to or exceeding the end
severity was received at the command processor. Recovery . . . : See the
messages previously listed to determine the message that caused the job to
be ended. Correct the errors, and then try the request again.
CPC2191 Completion 00 09/12/14 17:11:16.486112 QLIDLOBJ QSYS 051B QLICLLIB QSYS 05F3
Message . . . . : Object RETURNCODE in QTEMP type *DTAARA deleted.
CPF1164 Completion 00 09/12/14 17:11:16.486384 QWTMCEOJ QSYS 00D9 *EXT *N
Message . . . . : Job 020350/QSECOFR/WEBRPT1 ended on 09/12/14 at 17:11:16;
1 seconds used; end code 20 .
Cause . . . . . : Job 020350/QSECOFR/WEBRPT1 completed on 09/12/14 at
17:11:16 after it used 1 seconds processing unit time. The job had ending
code 20. The job ended after 1 routing steps with a secondary ending code of
0. The job ending codes and their meanings are as follows: 0 - The job
completed normally. 10 - The job completed normally during controlled ending
or controlled subsystem ending. 20 - The job exceeded end severity (ENDSEV
job attribute). 30 - The job ended abnormally. 40 - The job ended before
becoming active. 50 - The job ended while the job was active. 60 - The
subsystem ended abnormally while the job was active. 70 - The system ended
abnormally while the job was active. 80 - The job ended (ENDJOBABN command).
90 - The job was forced to end after the time limit ended (ENDJOBABN
command). Recovery . . . : For more information, see the Work Management
topic in the Information Center,
http://www.ibm.com/eserver/iseries/infocenter.
Here is the main error of the report above.
SRCFILE(@AS400CGI/CGIRPGSRC) SRCMBR(WEBRPT1) DFTACTGRP(*NO)
BNDDIR(@AS400CGI/CGIBNDDIR) REPLACE(*YES)
CPD5D02 Diagnostic 30 09/12/14 17:11:15.887240 QBNBIND QSYS *STMT QBNBIND QSYS *STMT
From module . . . . . . . . : QBNBSYMR
From procedure . . . . . . : QBNBSYMR__UnresolvedReferenceIterator
Statement . . . . . . . . . : 31
To module . . . . . . . . . : QBNBSYMR
To procedure . . . . . . . : QBNBSYMR__SignalUnresolvedReferences
Statement . . . . . . . . . : 8
Message . . . . : Definition not found for symbol '#GetWknLib'.
Cause . . . . . : No definition was found for reference #GetWknLib in
*MODULE object WEBRPT1 in library QTEMP. The definition either does not
exist or is not of the same data or procedure type as the reference.
Recovery . . . : Try the Create Program (CRTPGM) command again, supplying
an object that contains a definition for symbol #GetWknLib.
Peter H. Coffin
Sep 14, 2014, 8:14:57 PM9/14/14
to
On Fri, 12 Sep 2014 14:53:26 -0700 (PDT), A. Perry Nelson wrote:
> Here is the compiled of the Webprt1. So what im i doing wrong, I'm missing something in the compiles?
[...]
> Here is the compiled of the Webprt1. So what im i doing wrong, I'm missing something in the compiles?
> Here is the binding report joblog.
> Message . . . . : - CRTBNDRPG PGM(@AS400CGI/WEBRPT1)
> SRCFILE(@AS400CGI/CGIRPGSRC) SRCMBR(WEBRPT1) DFTACTGRP(*NO)
> BNDDIR(@AS400CGI/CGIBNDDIR) REPLACE(*YES)
> CPD5D02 Diagnostic 30 09/12/14 17:11:15.887240 QBNBIND QSYS *STMT QBNBIND QSYS *STMT
> From module . . . . . . . . : QBNBSYMR
> From procedure . . . . . . : QBNBSYMR__UnresolvedReferenceIterator
> Statement . . . . . . . . . : 31
> To module . . . . . . . . . : QBNBSYMR
> To procedure . . . . . . . : QBNBSYMR__SignalUnresolvedReferences
> Statement . . . . . . . . . : 8
> Message . . . . : Definition not found for symbol '#GetWknLib'.
> Cause . . . . . : No definition was found for reference #GetWknLib in
> *MODULE object WEBRPT1 in library QTEMP. The definition either does not
> exist or is not of the same data or procedure type as the reference.
> Recovery . . . : Try the Create Program (CRTPGM) command again, supplying
> an object that contains a definition for symbol #GetWknLib.
I think you may wish to consider CRTPGM here instead.
> SRCFILE(@AS400CGI/CGIRPGSRC) SRCMBR(WEBRPT1) DFTACTGRP(*NO)
> BNDDIR(@AS400CGI/CGIBNDDIR) REPLACE(*YES)
> CPD5D02 Diagnostic 30 09/12/14 17:11:15.887240 QBNBIND QSYS *STMT QBNBIND QSYS *STMT
> From module . . . . . . . . : QBNBSYMR
> From procedure . . . . . . : QBNBSYMR__UnresolvedReferenceIterator
> Statement . . . . . . . . . : 31
> To module . . . . . . . . . : QBNBSYMR
> To procedure . . . . . . . : QBNBSYMR__SignalUnresolvedReferences
> Statement . . . . . . . . . : 8
> Message . . . . : Definition not found for symbol '#GetWknLib'.
> Cause . . . . . : No definition was found for reference #GetWknLib in
> *MODULE object WEBRPT1 in library QTEMP. The definition either does not
> exist or is not of the same data or procedure type as the reference.
> Recovery . . . : Try the Create Program (CRTPGM) command again, supplying
> an object that contains a definition for symbol #GetWknLib.
--
I got told by a friend's ex-girlfriend that she could tell I was
a Linux geek from the way I *walked*.
-- Skud
A. Perry Nelson
Sep 17, 2014, 12:36:54 AM9/17/14
to
its said when i complied the crtprg, it will not complete, it will not give a joblog. It just said there is "no program entry procedure was found".
System: CHOCTAW
Job . . : ARLAMS250A User . . : QSECOFR Number . . . : 021730
4>> CRTPGM PGM(@AS400CGI/WEBRPT1) MODULE(@AS400CGI/#GETWKNLIB)
No program entry procedure was found.
Program WEBRPT1 not created.
Program WEBRPT1 not created.
System: CHOCTAW
Job . . : ARLAMS250A User . . : QSECOFR Number . . . : 021730
4>> CRTPGM PGM(@AS400CGI/WEBRPT1) MODULE(@AS400CGI/#GETWKNLIB)
No program entry procedure was found.
Program WEBRPT1 not created.
Program WEBRPT1 not created.
Ken Sims
Sep 17, 2014, 9:30:04 AM9/17/14
to
procedure was found." message? Put the cursor on that message and
press F1.
Is the module intended to become a service program? If so, you need
to use CRTSRVPGM, not CRTPGM.
--
Ken
Opinions expressed are my own and do not necessarily represent the views
of my employer or anyone in their right mind.
A. Perry Nelson
Sep 17, 2014, 9:48:50 PM9/17/14
to
A. Perry Nelson
Sep 17, 2014, 9:59:47 PM9/17/14
to
On Wednesday, September 17, 2014 9:48:50 PM UTC-4, A. Perry Nelson wrote:
> On Wednesday, September 17, 2014 9:30:04 AM UTC-4, Ken Sims wrote:
>
> > On Tue, 16 Sep 2014 21:36:54 -0700 (PDT), "A. Perry Nelson"
>
> >
>
> > <a.perry...@gmail.com> wrote:
>
> >
>
> > CRTPGM PGM(@AS400CGI/WEBRPT1) MODULE(@AS400CGI/#GETWKNLIB)
> On Wednesday, September 17, 2014 9:30:04 AM UTC-4, Ken Sims wrote:
>
> > On Tue, 16 Sep 2014 21:36:54 -0700 (PDT), "A. Perry Nelson"
>
> >
>
> > <a.perry...@gmail.com> wrote:
>
> >
>
Program WEBRPT1 not created.
Cause . . . . . : The program WEBRPT1 could not be created in the library @AS400CGI. Recovery . . . : Display the job log to determine why the program could not be created (DSPJOBLOG command). Correct the errors and try the request again.
Ken Sims
Sep 17, 2014, 11:00:31 PM9/17/14
to
On Wed, 17 Sep 2014 18:48:50 -0700 (PDT), "A. Perry Nelson"
<a.perry...@gmail.com> wrote:
>Well the #getwknlib is the sub-procedure, compiled as a mod. The webprt1, regular bound compile. It will compile when i delete or comment the callp GetWknLib. So im lost at what step is what. Some documentation said just do a crtpgm, other said Binding Directory, then others point to service program. Others, just say do a copybook, which in my mind is defeating the purpose of embedded source code. So I just completely lost. What should work, and what good clear not assuming this step or this process. So I can, get these program converted to SQL and subprocedures. Basically, i've been converting the rpg 4 text book into web and modules for a true advance course. From the other two only joblogs, at the beinnging of this post, are the other two. Which will completed compiled, but will not run, or let me do a interactive debug. So what is right? P
You need to specify WEBPRT1 as the first module, then #GETWKNLIB as an
<a.perry...@gmail.com> wrote:
>Well the #getwknlib is the sub-procedure, compiled as a mod. The webprt1, regular bound compile. It will compile when i delete or comment the callp GetWknLib. So im lost at what step is what. Some documentation said just do a crtpgm, other said Binding Directory, then others point to service program. Others, just say do a copybook, which in my mind is defeating the purpose of embedded source code. So I just completely lost. What should work, and what good clear not assuming this step or this process. So I can, get these program converted to SQL and subprocedures. Basically, i've been converting the rpg 4 text book into web and modules for a true advance course. From the other two only joblogs, at the beinnging of this post, are the other two. Which will completed compiled, but will not run, or let me do a interactive debug. So what is right? P
additional module. (CRTPGM does not assume that you want to include a
module of the same name as the program that you are creating.)
This will give you an program consists of both modules. If you make
changes to #GETWKNLIB, this will NOT be reflected in WEBPRT1 unless
you update or create the program.
If #GETWRKNLIB is going to be used in more than one program, then I
would make it a service program.
You need to learn about ILE concepts:
http://www-01.ibm.com/support/knowledgecenter/api/content/ssw_ibm_i_72/ilec/sc415606.pdf
A. Perry Nelson
Sep 18, 2014, 12:30:50 AM9/18/14
to
Date sent . . . . . . : 09/18/14 Time sent . . . . . . : 00:23:46
Message . . . . : Program WEBRPT1 not created.
Cause . . . . . : The program WEBRPT1 could not be created in the library
@AS400CGI.
be created (DSPJOBLOG command). Correct the errors and try the request
again.
Ken Sims
Sep 18, 2014, 12:36:14 AM9/18/14
to
that gives the specific reason(s) why the program could not be
created.
A. Perry Nelson
Sep 22, 2014, 8:05:59 PM9/22/14
to
I still cant get this program to compile?! Both are modules, but wont compile. oh well
Ken Sims
Sep 22, 2014, 9:34:12 PM9/22/14
to
On Mon, 22 Sep 2014 17:05:59 -0700 (PDT), "A. Perry Nelson"
<a.perry...@gmail.com> wrote:
>I still cant get this program to compile?! Both are modules, but wont compile. oh well
WEBRPT1 shows that you are using the CRTBNDRPG command, which creates
<a.perry...@gmail.com> wrote:
>I still cant get this program to compile?! Both are modules, but wont compile. oh well
a module in QTEMP and then creates a program from that module, yet you
talk about using CRTPGM. Which are you doing?
If you are going to use CRTBNDRPG, the program creation function needs
to be able to find all referenced procedures and data items not in the
module whose source is being compiled.
The easiest way to do that is to use a binding directory.
A. Perry Nelson
Sep 23, 2014, 12:56:32 AM9/23/14
to
Ok, i have cleared, the two programs compiles.
The webrpt1 and #getwknlib are compiled as modules.
This is the new message
CRTPGM PGM(@AS400CGI/WEBRPT1) MODULE(@AS400CGI/#GETWKNLIB) BNDDIR(@AS400CG
I/CGIBNDDIR)
Additional Message Information
Message ID . . . . . . : CPD5D1A
Date sent . . . . . . : 09/23/14 Time sent . . . . . . : 00:51:19
Message . . . . : No program entry procedure was found.
Cause . . . . . : A program entry procedure is required in order to create a
bound program. The error code is 1. The description follows:
-- 1: None of the modules to be used to create the bound program contains
a program entry procedure.
-- 2: Module in library is the first module found with a program entry
procedure. This module was specified in one of the provided binding
directories. Module does not have an export that satisfied any unresolved
import requests. Therefore, this module was not included in the set of
modules to be used to create the bound program.
Recovery . . . : Follow the directions for the indicated error code and
then try the Create Program (CRTPGM) command again:
What is the next thing im doing wrong?
The webrpt1 and #getwknlib are compiled as modules.
This is the new message
CRTPGM PGM(@AS400CGI/WEBRPT1) MODULE(@AS400CGI/#GETWKNLIB) BNDDIR(@AS400CG
I/CGIBNDDIR)
No program entry procedure was found.
Program WEBRPT1 not created.
Both programs compile fine.
Program WEBRPT1 not created.
Additional Message Information
Message ID . . . . . . : CPD5D1A
Date sent . . . . . . : 09/23/14 Time sent . . . . . . : 00:51:19
Message . . . . : No program entry procedure was found.
Cause . . . . . : A program entry procedure is required in order to create a
bound program. The error code is 1. The description follows:
-- 1: None of the modules to be used to create the bound program contains
a program entry procedure.
-- 2: Module in library is the first module found with a program entry
procedure. This module was specified in one of the provided binding
directories. Module does not have an export that satisfied any unresolved
import requests. Therefore, this module was not included in the set of
modules to be used to create the bound program.
Recovery . . . : Follow the directions for the indicated error code and
then try the Create Program (CRTPGM) command again:
What is the next thing im doing wrong?
Ad
Sep 23, 2014, 4:51:18 AM9/23/14
to
The CRTPGM command create a program with both modules
CRTPGM PGM(@AS400CGI/WEBRPT1) MODULE((@AS400CGI/WEBRPT1)
(@AS400CGI/#GETWKNLIB)) BNDDIR(@AS400CGI/CGIBNDDIR)
Ad
CRTPGM PGM(@AS400CGI/WEBRPT1) MODULE((@AS400CGI/WEBRPT1)
(@AS400CGI/#GETWKNLIB)) BNDDIR(@AS400CGI/CGIBNDDIR)
Ad
Dr.UgoGagliardelli
Sep 23, 2014, 6:38:35 AM9/23/14
to
codepage to codepage and assuming that cp 37 will be evrywhere is a
mistake, specially in a web environment.
Ken Sims
Sep 23, 2014, 9:47:32 AM9/23/14
to
On Mon, 22 Sep 2014 21:56:32 -0700 (PDT), "A. Perry Nelson"
<a.perry...@gmail.com> wrote:
>The webrpt1 and #getwknlib are compiled as modules.
>This is the new message
> CRTPGM PGM(@AS400CGI/WEBRPT1) MODULE(@AS400CGI/#GETWKNLIB) BNDDIR(@AS400CG
> I/CGIBNDDIR)
> No program entry procedure was found.
> Program WEBRPT1 not created.
>Both programs compile fine.
As I already said previously ... You need to specify WEBRPT1 as the
<a.perry...@gmail.com> wrote:
>The webrpt1 and #getwknlib are compiled as modules.
>This is the new message
> CRTPGM PGM(@AS400CGI/WEBRPT1) MODULE(@AS400CGI/#GETWKNLIB) BNDDIR(@AS400CG
> I/CGIBNDDIR)
> No program entry procedure was found.
> Program WEBRPT1 not created.
>Both programs compile fine.
first module. CRTPGM does not assume that you want to include a
module of the same name as the program that you are creating.
A. Perry Nelson
Sep 24, 2014, 12:54:48 PM9/24/14
to
On Friday, September 12, 2014 5:53:26 PM UTC-4, A. Perry Nelson wrote:
Ok this is the new msg
CRTPGM PGM(@AS400CGI/WEBREPORT1) MODULE(@AS400CGI/WEBRPT1 @AS400CGI/GETWKN
LIB)
Definition not found for symbol 'GetWknLib'.
Program WEBREPORT1 not created.
This time, after thinking about what was said, i did. The complie runs longer almost a minute. Yeap another step im missing? P
Ken Sims
Sep 24, 2014, 6:07:57 PM9/24/14
to
On Wed, 24 Sep 2014 09:54:48 -0700 (PDT), "A. Perry Nelson"
<a.perry...@gmail.com> wrote:
>Ok this is the new msg
>CRTPGM PGM(@AS400CGI/WEBREPORT1) MODULE(@AS400CGI/WEBRPT1 @AS400CGI/GETWKN
>LIB)
>Definition not found for symbol 'GetWknLib'.
>Program WEBREPORT1 not created.
>
>This time, after thinking about what was said, i did. The complie runs longer almost a minute. Yeap another step im missing? P
I don't see that you have a procedure called GetWknLib. The name of
<a.perry...@gmail.com> wrote:
>Ok this is the new msg
>CRTPGM PGM(@AS400CGI/WEBREPORT1) MODULE(@AS400CGI/WEBRPT1 @AS400CGI/GETWKN
>LIB)
>Definition not found for symbol 'GetWknLib'.
>Program WEBREPORT1 not created.
>
>This time, after thinking about what was said, i did. The complie runs longer almost a minute. Yeap another step im missing? P
the module and the name(s) of the procedure(s) inside the module are
separate things.
Note also that procedure names are case-sensitive, and procedure names
not in quotes are automatically converted to upper-case, so you need
to make sure that you keep everything in agreement.
Ad
Sep 25, 2014, 2:42:48 AM9/25/14
to
CRTPGM PGM(@AS400CGI/WEBRPT1) MODULE((@AS400CGI/WEBRPT1)
(@AS400CGI/#GETWKNLIB)) BNDDIR(@AS400CGI/CGIBNDDIR)
do dot forget the "#" !!
(@AS400CGI/#GETWKNLIB)) BNDDIR(@AS400CGI/CGIBNDDIR)
CRTPGM PGM(@AS400CGI/WEBRPT1) MODULE((@AS400CGI/WEBRPT1)
(@AS400CGI/#GETWKNLIB)) BNDDIR(@AS400CGI/CGIBNDDIR)
do dot forget the "#" !!
(@AS400CGI/#GETWKNLIB)) BNDDIR(@AS400CGI/CGIBNDDIR)
Ad.
A. Perry Nelson
Sep 25, 2014, 3:42:05 PM9/25/14
to
On Friday, September 12, 2014 5:53:26 PM UTC-4, A. Perry Nelson wrote:
One helper said get rid of the special charters. So i delete both compiles, recompile as modals, with cgibnddir for both. That was the last msg. I thank and understand, but if people have some time, i rather be shown where in the ile concepts manual this problem might be, or what im doing wrong from a chapter that will let me read and adsorbed, to figure this out... I have the 5.4 concept pdf. thanks These compiles are 10 generations back. I hate we cant do attachments. I read another person post, are yall saying that the source code, the prototype, in both modules have to all be named the same across the programs?
0 new messages