×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
We're migrating from V7R1M0 to V7R3M0 and have created a test LPAR from our secondary system. It's a Full-System Flash Copy.
We flash copy the LPAR, IPL, then run through the items in the 7.1 to 7.3 instruction manual: Load some stray PTFs, apply PTFs *PERM (with the IPL to make them so). Then we run the upgrade: Image Catalog loaded with the new OS DVDs, Cumulative package C6085730, HIPERs, GROUPS, etc.
The upgrade runs; some old products don't have upgrades available (ie Office Vision and WebSphere 5). INZSYS completes normally. CHKPRDOPT *OPSYS shows everything looks OK.
Then our programmers started poking at things, and ran into a problem compiling, using CRTSQLRPGI (from the STRPDM interface in the test LPAR). This creates an intermediate source, and then compiles with CRTBNDRPG. The program is being compiled using TGTRLS(V7R1M0). This is because our production LPAR won't be upgraded for a few months, but our second system will be upgraded by the end of October.
The program fails to compile under V7R3. Apparently, it doesn't copy in the SQLCA code that's supposed to be included automatically. The library list includes the our production source and the programmer's source libraries.
The program compiles fine in the secondary system under V7R1.
We have a ticket open with IBM, but sometimes this group is quicker! (;
Anyone have any thoughts?
Thanks for any light you can shine on this fun!
--Paul E Musselman
PaulMmn@xxxxxxxxxxxxxxxxxxxx
The Program:
h dftactgrp(*no)
h option(*nodebugio: *srcstmt)
h debug
d dummyind s 1n
/copy CPYSQLOPT
/FREE
exec sql
select '1'
into :dummyind
from SYSIBM/SYSDUMMY1
fetch first 1 rows only;
PTF Group Level Status Text
SF99876 2 Installed HIGH AVAILABILITY FOR IBM I
SF99875 2 Installed HARDWARE AND RELATED PTFS
SF99859 1 Related group IBM MQ FOR IBM I - V7.1.0/V8.0.0
SF99731 6 Installed ALL PTF GROUPS EXCEPT CUMULATIVE PTF PACKAGE
SF99730 16085 Installed CUMULATIVE PTF PACKAGE C6085730
SF99729 16 Installed GROUP HIPER
SF99728 6 Installed GROUP SECURITY
SF99725 3 Installed JAVA
SF99724 4 Installed BACKUP RECOVERY SOLUTIONS
SF99723 2 Installed PERFORMANCE TOOLS
SF99722 3 Installed IBM HTTP SERVER FOR I
SF99703 2 Installed DB2 FOR IBM I
SF99581 2 Installed WEBSPHERE APP SERVER V8.5
SF99252 2 Related group CONTENT MANAGER ONDEMAND FOR I - 5770-RD1 7.3
SF99225 1 Installed IBM OPEN SOURCE SOLUTIONS FOR I
The resulting compile listing from the test environment:
5770WDS V7R3M0 160422 RN IBM ILE RPG HQPGJWC/TSTV7R3 GCC#2 10/19/16 12:49:31 Page 1
Command . . . . . . . . . . . . : CRTBNDRPG
Issued by . . . . . . . . . . : HQPGJWC
Program . . . . . . . . . . . . : TSTV7R3
Library . . . . . . . . . . . : HQPGJWC
Text 'description' . . . . . . . : *SRCMBRTXT
Source Member . . . . . . . . . : TSTV7R3
Source File . . . . . . . . . . : QSQLTEMP1
Library . . . . . . . . . . . : QTEMP
CCSID . . . . . . . . . . . . : 37
Text 'description' . . . . . . . : test V7R3
Last Change . . . . . . . . . . : 10/19/16 12:49:31
Generation severity level . . . : 10
Default activation group . . . . : *YES
Compiler options . . . . . . . . : *XREF *GEN *NOSECLVL *SHOWCPY
*EXPDDS *EXT *NOSHOWSKP *NOSRCSTMT
*DEBUGIO *UNREF *NOEVENTF
Debugging views . . . . . . . . : *ALL
Debug encryption key . . . . . . : *NONE
Output . . . . . . . . . . . . . : *PRINT
Optimization level . . . . . . . : *NONE
Source listing indentation . . . : *NONE
Type conversion options . . . . : *NONE
Sort sequence . . . . . . . . . : QASCII
Library . . . . . . . . . . . : *LIBL
Language identifier . . . . . . : ENU
Replace program . . . . . . . . : *YES
User profile . . . . . . . . . . : *OWNER
Authority . . . . . . . . . . . : *LIBCRTAUT
Truncate numeric . . . . . . . . : *YES
Fix numeric . . . . . . . . . . : *NONE
Target release . . . . . . . . . : V7R1M0
Allow null values . . . . . . . : *NO
Define condition names . . . . . : *NONE
Enable performance collection . : *PEP
Profiling data . . . . . . . . . : *NOCOL
Licensed Internal Code options . :
Generate program interface . . . : *NO
Include directory . . . . . . . :
Preprocessor options . . . . . . : *NONE
5770WDS V7R3M0 160422 RN IBM ILE RPG HQPGJWC/TSTV7R3 GCC#2 10/19/16 12:49:31 Page 2
Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
Number ....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 h dftactgrp(*no) 161019 000100
2 h option(*nodebugio: *srcstmt) 161019 000200
000300 h debug 161019 000300
000400 161019 000400
*--------------------------------------------------------------------*
* Compiler Options in Effect: *
*--------------------------------------------------------------------*
* Text 'description' . . . . . . . : test V7R3 *
* Generation severity level . . . : 10 *
* Default activation group . . . . : *NO *
* Compiler options . . . . . . . . : *XREF *GEN *
* *NOSECLVL *SHOWCPY *
* *EXPDDS *EXT *
* *NOSHOWSKP *SRCSTMT *
* *NODEBUGIO *UNREF *
* *NOEVENTF *
* Optimization level . . . . . . . : *NONE *
* Source listing indentation . . . : *NONE *
* Type conversion options . . . . : *NONE *
* Sort sequence . . . . . . . . . : QASCII *
* Library . . . . . . . . . . . : *LIBL *
* Language identifier . . . . . . : ENU *
* User profile . . . . . . . . . . : *OWNER *
* Authority . . . . . . . . . . . : *LIBCRTAUT *
* Truncate numeric . . . . . . . . : *YES *
* Fix numeric . . . . . . . . . . : *NONE *
* Allow null values . . . . . . . : *NO *
* Storage model . . . . . . . . . : *SNGLVL *
* Binding directory from Command . : *NONE *
* Binding directory from Source . : *NONE *
* Activation group . . . . . . . . : *STGMDL *
* Enable performance collection . : *PEP *
* Profiling data . . . . . . . . . : *NOCOL *
* Generate program interface . . . : *NO *
*--------------------------------------------------------------------*
000500 d dummyind s 1n 161019 000500
000600 161019 000600
000700 *copy CPYSQLOPT 161019 000700
000100 ************************************************************************* 000100
000200 ** Object Name: CPYSQLOPT ** 000200
000700 ** ** 000700
000800 ** Program Function: Initial SQL options ** 000800
000900 ** ** 000900
001000 ************************************************************************* 001000
001100 * ** 001100
001200 * ERROR INDICATOR USAGE ** 001200
5770WDS V7R3M0 160422 RN IBM ILE RPG HQPGJWC/TSTV7R3 GCC#2 10/19/16 12:49:31 Page 3
Line <---------------------- Source Specifications ----------------------------><---- Comments ----> Do Page Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line Date Id Number
001300 * ** 001300
001400 ************************************************************************* 001400
001500 ** ** 001500
001600 ** Modification Summary ** 001600
001700 ** ** 001700
001800 ** Mod Reference Date Programmer Description ** 001800
001900 ** --- --------- -------- --------------- ----------- ** 001900
002300 ************************************************************************* 002300
002400 002400
002500 /free 002500
002600 002600
002700 /if defined(ASCII_SORT) 002700
LINES EXCLUDED: 64
003900 /else 003900
004000 //* Exec sql Set Option Datfmt = *ISO, 004000
004100 //* Naming = *Sys, 004100
004200 //* Commit = *None, 004200
004300 //* // UsrPrf = *User, /01 100830 004300
004400 //* UsrPrf = *Owner, /01 100830 004400
004500 //* // DynUsrPrf = *User, /01 100830 004500
004600 //* // DynUsrPrf = *User, /01 100830 004600
004700 //* DynUsrPrf = *Owner, /01 100830 004700
004800 //* CloSqlCsr = *EndActGrp; /02 131205 004800
004900 //CloSqlCsr = *EndMod; /02 131205 004900
005000 005000
005100 /endif 005100
005200 /end-free 005200
005300 005300
000800 /FREE 161019 000800
000900 161019 000900
001000 //* exec sql 161019 001000
001100 //* select '1' 161019 001100
001200 //* into :dummyind 161019 001200
001300 //* from SYSIBM/SYSDUMMY1 161019 001300
001400 //* fetch first 1 rows only; 161019 001400
001400 C Z-ADD -4 SQLER6 SQL 7 001400
001400 C CALL SQLROUTE SQL 001400
001400 C PARM SQLCA SQL 001400
001400 C PARM SQL_00000 SQL 001400
001400 C SQL_00003 IFEQ '1' SQL B01 001400
001400 C EVAL DUMMYIND = SQL_00005 SQL 01 001400
001400 C END SQL E01 001400
001500 161019 001500
001600 dsply sqlstt; 161019 001600
001700 *inlr = *on; 161019 001700
001800 /end-free 161019 001800
001900 001900
* * * * * E N D O F S O U R C E * * * * *
5770WDS V7R3M0 160422 RN IBM ILE RPG HQPGJWC/TSTV7R3 GCC#2 10/19/16 12:49:31 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
*RNF7030 30 001400 The name or indicator SQL_00000 is not defined.
*RNF7030 30 001400 The name or indicator SQL_00003 is not defined.
*RNF7030 30 001400 The name or indicator SQL_00005 is not defined.
*RNF7030 30 001400 The name or indicator SQLCA is not defined.
*RNF7030 30 001400 The name or indicator SQLER6 is not defined.
*RNF7030 30 001400 The name or indicator SQLROUTE is not defined.
*RNF7030 30 001600 The name or indicator SQLSTT is not defined.
*RNF7044 30 001400 The field SQLER6 on the C specification is not numeric; the
specification is ignored.
*RNF7503 30 001400 Expression contains an operand that is not defined.
*RNF7503 30 001600 Expression contains an operand that is not defined.
* * * * * 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 * * * * *
5770WDS V7R3M0 160422 RN IBM ILE RPG HQPGJWC/TSTV7R3 GCC#2 10/19/16 12:49:31 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) 001700M
DUMMYIND N(1) 000500D 001400M
*RNF7030 SQL_00000 **UNDEF** 001400M
*RNF7030 SQL_00003 **UNDEF** 001400
*RNF7030 SQL_00005 **UNDEF** 001400
*RNF7030 SQLCA **UNDEF** 001400M
*RNF7030 SQLER6 **UNDEF** 001400M
*RNF7030 SQLROUTE **UNDEF** 001400
*RNF7030 SQLSTT **UNDEF** 001600
Indicator References:
Indicator References (D=Defined M=Modified)
LR 001700M
* * * * * E N D O F C R O S S R E F E R E N C E * * * * *
5770WDS V7R3M0 160422 RN IBM ILE RPG HQPGJWC/TSTV7R3 GCC#2 10/19/16 12:49:31 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 * * * * *
5770WDS V7R3M0 160422 RN IBM ILE RPG HQPGJWC/TSTV7R3 GCC#2 10/19/16 12:49:31 Page 7
M e s s a g e S u m m a r y
Msg id Sv Number Message text
*RNF7030 30 7 The name or indicator is not defined.
*RNF7044 30 1 The field on the C specification is not numeric; the
specification is ignored.
*RNF7503 30 2 Expression contains an operand that is not defined.
* * * * * E N D O F M E S S A G E S U M M A R Y * * * * *
5770WDS V7R3M0 160422 RN IBM ILE RPG HQPGJWC/TSTV7R3 GCC#2 10/19/16 12:49:31 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+) . . . . . . : 10
--------------------------------- -------
Total . . . . . . . . . . . . . : 10
Source Totals:
Records . . . . . . . . . . . . : 68
Specifications . . . . . . . . : 13
Data records . . . . . . . . . : 0
Comments . . . . . . . . . . . : 39
* * * * * E N D O F F I N A L S U M M A R Y * * * * *
Compilation stopped. Severity 30 errors found in program.
* * * * * E N D O F C O M P I L A T I O N * * * * *
Paul E Musselman
PaulMmn@xxxxxxxxxxxxxxxxxxxx
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact
[javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
