× 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.



Edmund,

Please a trimmed down version of the program below that should recreate
the issue. I sure appreciate all of you IBM'ers monitoring our posts and
contributing when appropriate.

Thanks,
Mike Garrison



*?¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
* Header/Control Specifications

*?________________________________________________________________________
H option( *SRCSTMT : *NODEBUGIO ) extbinint(*YES)
H DftActGrp( *no ) ActGrp( 'MYACTGRP' )


*?¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
* Data Specifications

*?________________________________________________________________________

*? Named Constant definition(s)
D cSqlStateOk c const( '00000' )
D cSqlStateEof c const( '02000' )

*? Indicator definition(s)
D nRowFetched s n inz( *off )

*? Display Object Description record format
D dsQADSPOBJ e ds extname( QADSPOBJ )

*? Variable definition(s)
D vCommand s 1024a varying inz

*? System API data structures
D/include QSYSINC/QRPGLESRC,QUSEC


*?¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
* Prototype definitions

*?________________________________________________________________________

*? Execute Command
D ExeCommand pr extpgm( 'QCMDEXC' )
D @iCommand 256a const options( *varsize )
D @iCmdLength 15p 5 const

/free

//?______________________________________________________________________
//?¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
//? Calculation specifications
//?______________________________________________________________________
//?¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

//?¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
//? Main Line
//?______________________________________________________________________

//? Set SQL options
exec sql set option commit = *none, alwcpydta = *optimize,
closqlcsr = *endmod, DLYPRP = *yes, datfmt = *iso, TIMFMT = *iso
;

//? Execute routine to get a list of objects
exsr GetObjectList ;

//? Exit the program
exsr ExitProgram ;

//?¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
//? GetObjectList - Build Object List
//?______________________________________________________________________
begsr GetObjectList ;

//? Delete any previous temporary table
monitor ;
vCommand = 'DLTF FILE(QTEMP/#DSPOBJD)' ;
ExeCommand( vCommand : %len( %trim( vCommand ) ) );
on-error ;
endmon ;

//? Display *SYSBAS Objects to a temporary table
vCommand = 'DSPOBJD OBJ(*ALLUSR/*ALL) OBJTYPE(*ALL) +
DETAIL(*SERVICE) ASPDEV(*SYSBAS) OUTPUT(*OUTFILE) +
OUTFILE(QTEMP/#MGSYBL)' ;
ExeCommand( vCommand : %len( %trim( vCommand ) ) );

//? Execute routine to process the Object List
exsr PrcObjectList ;
endsr ;

//?¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
//? PrcObjectList - Process Object List User Space
//?______________________________________________________________________
begsr PrcObjectList ;

//? Declare the cursor for fetching from the DSPOBJD outfile
exec sql declare DSPOBJD cursor for
select * from QTEMP/#MGSYBL ;

//? Open the cursor
exec sql open DSPOBJD ;
if SQLSTATE <= cSqlStateOk ;

//? Do until no row fetched
dou not nRowFetched;

//? Fetch data into the data structure
exec sql fetch DSPOBJD into :dsQADSPOBJ ;

//? If row fetched successfully
if SQLSTATE = cSqlStateOk ;
nRowFetched = *on ;

//? Exit Loop if EOF
elseif SQLSTATE = cSqlStateEof ;
nRowFetched = *off ;

//? Unexpected SQL error
else ;
nRowFetched = *off ;
endif;

enddo;

endif;

//? Close the cursor
exec sql close DSPOBJD ;

endsr ;

//?¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
//? ExitProgram - Exit the program
//?______________________________________________________________________
begsr ExitProgram ;

*inlr = *on ;
return ;

endsr ;

/end-free




Edmund Reinhardt wrote on 06/08/2012 01:43:52 PM:

From: Edmund Reinhardt <edmund.reinhardt@xxxxxxxxxx>
To: Rational Developer for IBM i / Websphere Development Studio
Client for System i & iSeries <wdsci-l@xxxxxxxxxxxx>,
Cc: wdsci-l-bounces@xxxxxxxxxxxx
Date: 06/08/2012 01:44 PM
Subject: Re: [WDSCI-L] Data structure not listed as referenced on
SQL Fetch in SQLRPGLE
Sent by: wdsci-l-bounces@xxxxxxxxxxxx


If you can past a code snippet for me
I can test it and fix it, if it isn't working in 8.5



Regards,



Edmund (E.H.) Reinhardt
COBOL IDE on AIX, DDS, WebFacing, System i Application Development,
Rational Developer for Power



2D barcode - Phone: 1-905-413-3125 | Phone: 1-905-854-6195 IBM
encoded with E-mail: edmund.reinhardt@xxxxxxxxxx
contact AIX COBOL:
8200 Warden Ave
information www.youtube.com/user/IBMRational#g/c/62DF24D5BCD43501
Markham, ON L6G 1C7
"In every thing give thanks: for this is the will of
Canada
God in Christ Jesus concerning you." - 1
Thessalonians 5:18






From: mgarrison@xxxxxxxxxx
To: Rational Developer for IBM i / Websphere Development Studio
Client for System i & iSeries <wdsci-l@xxxxxxxxxxxx>,
Date: 06/08/2012 11:30 AM
Subject: Re: [WDSCI-L] Data structure not listed as referenced on SQL
Fetch in SQLRPGLE
Sent by: wdsci-l-bounces@xxxxxxxxxxxx



Gary,

I appreciate your verifying that your RDP 8.0.3 exhibits the same
behavior. Maybe this will be corrected in the latest release of RDP
with
the live Outline to be available in a week or so.

Thanks,
Mike


Gary Thompson wrote on 06/08/2012 10:14:45 AM:

From: Gary Thompson <gthompson@xxxxxxxxxxx>
To: Rational Developer for IBM i / Websphere Development Studio
Client for System i & iSeries <wdsci-l@xxxxxxxxxxxx>,
Date: 06/08/2012 10:15 AM
Subject: Re: [WDSCI-L] Data structure not listed as referenced on
SQL Fetch in SQLRPGLE
Sent by: wdsci-l-bounces@xxxxxxxxxxxx

MGarrison,

Thank you for noticing and commenting on this.

Same in my RDP 8.0.3 - I see the DS Data Spec including subfields
and Clear and Occur operations in my outline, but not the Fetch.

If the Clear operation is recorded as a modification, why not the
Fetch?


I don't know if this has always been the case, but I do not
make much use of the Global Definitions section.
However, I would like Global Definitions to be complete on the
occasions where I do use them.
--
This is the Rational Developer for IBM i / Websphere Development Studio
Client for System i & iSeries (WDSCI-L) mailing list
To post a message email: WDSCI-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/wdsci-l
or email: WDSCI-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/wdsci-l.

--
This is the Rational Developer for IBM i / Websphere Development
Studio Client for System i & iSeries (WDSCI-L) mailing list
To post a message email: WDSCI-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/wdsci-l
or email: WDSCI-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/wdsci-l.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.