Prototyped Exported Procedure: Retrieve and Send a Record Back as a Data Structure Parameter
hi, you can just use an external ds (from the file) and export it in the *SRVPGM and import it in the calling PGM. here is a little piece of code i use to do tha same : Global parm : FBRO010P1 uf a e k disk D/Copy Qio_Proto,BRO010P1 d Io_BRO010P1 e ds extname(BRO010P1 ) [...]
View Answer
| March 21, 2005 4:14 AM
RPG
hi, you can just use an external ds (from the file) and export it in the *SRVPGM and import it in the calling PGM. here is a little piece of code i use to do tha same : Global parm : FBRO010P1 uf a e k disk D/Copy Qio_Proto,BRO010P1 d Io_BRO010P1 e ds extname(BRO010P1 ) [...]
View Answer
| March 21, 2005 4:14 AM
RPG
AS400 OVRPRTF command
the parameter you need is DRAWER, not sure if you put 3 or the parm or ’3′.. if that is a problem or is not working, try using a workstation customization object(WSCST).
View Answer
| March 18, 2005 4:20 PM
AS/400, Data analysis, DataCenter, Hardware
the parameter you need is DRAWER, not sure if you put 3 or the parm or ’3′.. if that is a problem or is not working, try using a workstation customization object(WSCST).
View Answer
| March 18, 2005 4:20 PM
AS/400, Data analysis, DataCenter, Hardware
ILE sub-procedure does not return data from a ReadE operation
I suggest you define the data structure in both the program AND the subprocedure. Define the structure in the subprocedure as “based” on a pointer and pass the pointer instead of the datastructure into the procedure. When you define the structure in the program, define a separate pointer field and initialize it to the %addr [...]
View Answer
| March 17, 2005 7:59 AM
Development, RPG
I suggest you define the data structure in both the program AND the subprocedure. Define the structure in the subprocedure as “based” on a pointer and pass the pointer instead of the datastructure into the procedure. When you define the structure in the program, define a separate pointer field and initialize it to the %addr [...]
View Answer
| March 17, 2005 7:59 AM
Development, RPG
Multiple message subfiles – one in a window
I believe you’re missing the line to display the message on. SFLMSGRCD(?) is the line no. within the window to display the message. Give it a try.
View Answer
| March 15, 2005 4:30 AM
RPG
I believe you’re missing the line to display the message on. SFLMSGRCD(?) is the line no. within the window to display the message. Give it a try.
View Answer
| March 15, 2005 4:30 AM
RPG
FTP to an Iseries 400 automated from within Microsoft Access
I am not an Access person, but the iSeries handles FTP easily. I’ve created a number of scripts to put files from Windows PCs to the iSeries. Example of a text file I use as a script: userid password lcd lcd clientssontagpgms cd /qsys.lib/test.lib bin put shlib.savf code.file quit Some notes: The user and password [...]
View Answer
| March 10, 2005 6:39 AM
AS/400, Desktop management applications, Development, Programming Languages
I am not an Access person, but the iSeries handles FTP easily. I’ve created a number of scripts to put files from Windows PCs to the iSeries. Example of a text file I use as a script: userid password lcd lcd clientssontagpgms cd /qsys.lib/test.lib bin put shlib.savf code.file quit Some notes: The user and password [...]
View Answer
| March 10, 2005 6:39 AM
AS/400, Desktop management applications, Development, Programming Languages
IFS Record Count
A stream file has no notion of records; thus there is no way to determine a number of records. What you can do is write a program that reads the file and count the number of carriage returns a/o linefeeds; that is probably what you would consider to be the record separator in a .csv [...]
View Answer
| March 9, 2005 2:57 AM
RPG
A stream file has no notion of records; thus there is no way to determine a number of records. What you can do is write a program that reads the file and count the number of carriage returns a/o linefeeds; that is probably what you would consider to be the record separator in a .csv [...]
View Answer
| March 9, 2005 2:57 AM
RPG
PRINTING SAMPLES OF ISERIES FONTS
I believe the FONTNAME keyword works with *AFPDS type print files. When you create the print file, specifiy DEVTYPE(*AFPDS). That should allow you to use the keyword correctly.
View Answer
| March 8, 2005 8:11 AM
AS/400, Development
I believe the FONTNAME keyword works with *AFPDS type print files. When you create the print file, specifiy DEVTYPE(*AFPDS). That should allow you to use the keyword correctly.
View Answer
| March 8, 2005 8:11 AM
AS/400, Development
Training- SCOOP Inc.
I have not taken any classes from SCOOP but I am currently taking the Ebusiness for iSeries Programmers course over the internet and find it to be excellent. Their website is www.mantatech.com.
View Answer
| March 1, 2005 9:32 PM
J2EE, JavaScript, RPG, Services, SQL
I have not taken any classes from SCOOP but I am currently taking the Ebusiness for iSeries Programmers course over the internet and find it to be excellent. Their website is www.mantatech.com.
View Answer
| March 1, 2005 9:32 PM
J2EE, JavaScript, RPG, Services, SQL
ftp spooled os/400(iseries) to pc format text or pdf
luismereb, do you have the iSeries Navigator (IBM iSeries Access for Windows) installed on your workstation? If so, you can click and drag spool files to your desktop and view them with an EBCDIC reader. Information on this product can be found at http://www-1.ibm.com/servers/esdd/articles/opsnav/index.html
View Answer
| February 26, 2005 8:57 AM
AS/400, Tech support
luismereb, do you have the iSeries Navigator (IBM iSeries Access for Windows) installed on your workstation? If so, you can click and drag spool files to your desktop and view them with an EBCDIC reader. Information on this product can be found at http://www-1.ibm.com/servers/esdd/articles/opsnav/index.html
View Answer
| February 26, 2005 8:57 AM
AS/400, Tech support
Subfile Control Text
Check the following option on the CRTDSPF: Restore display . . . . . . . . RSTDSP *YES If set to *YES, it might fix the problem.
View Answer
| February 25, 2005 8:00 AM
RPG
Check the following option on the CRTDSPF: Restore display . . . . . . . . RSTDSP *YES If set to *YES, it might fix the problem.
View Answer
| February 25, 2005 8:00 AM
RPG
MS Query – Client Access DSN error
This is a guess. Check what version of MDAC (Microsoft Data Access Components) the AS400 upgrade recommends. The most recent is 2.8. It may be the solution. Sometimes a non-MS vendor supports a specific version like 2.6 or 2.7. All of these can be downloaded from the Microsoft web site.
View Answer
| February 23, 2005 9:11 AM
Microsoft Office, UDB for iSeries/i5
This is a guess. Check what version of MDAC (Microsoft Data Access Components) the AS400 upgrade recommends. The most recent is 2.8. It may be the solution. Sometimes a non-MS vendor supports a specific version like 2.6 or 2.7. All of these can be downloaded from the Microsoft web site.
View Answer
| February 23, 2005 9:11 AM
Microsoft Office, UDB for iSeries/i5
Whats an RFC
An RFC (or Remote Function Call) is a Function Module with the attribute…Remote-enabled module…checked. This allows another system to “call” this function. In the SAP System, the ability to call remote functions is provided by the Remote Function Call (RFC) interface. This interface allows for remote calls between two SAP Systems or between an SAP [...]
View Answer
| February 22, 2005 3:14 PM
Development, RPG
An RFC (or Remote Function Call) is a Function Module with the attribute…Remote-enabled module…checked. This allows another system to “call” this function. In the SAP System, the ability to call remote functions is provided by the Remote Function Call (RFC) interface. This interface allows for remote calls between two SAP Systems or between an SAP [...]
View Answer
| February 22, 2005 3:14 PM
Development, RPG
QUSRSPLA / QSPCRTSP API problem Release 5.1 to 5.3
If you look at that API definition in V5R3, you will find that they have added at least one field to the format you are using. I didn’t dig, but SPLA0200 has added a 10 character field at the end of that format. That would push your error code parameter left by 10 characters, making [...]
View Answer
| February 22, 2005 12:35 PM
DataCenter, Development, Programming Languages, RPG
If you look at that API definition in V5R3, you will find that they have added at least one field to the format you are using. I didn’t dig, but SPLA0200 has added a 10 character field at the end of that format. That would push your error code parameter left by 10 characters, making [...]
View Answer
| February 22, 2005 12:35 PM
DataCenter, Development, Programming Languages, RPG
RPGLE record count
You could copy that file to a file in Qtemp using the INCREL keyword to specify your key value. Then execute a RTVMBRD over the temporary file which will return the current number of records in the field NBRCURRCD as a 10,0 field. Hope this helps. Rex
View Answer
| February 18, 2005 11:21 AM
RPG
You could copy that file to a file in Qtemp using the INCREL keyword to specify your key value. Then execute a RTVMBRD over the temporary file which will return the current number of records in the field NBRCURRCD as a 10,0 field. Hope this helps. Rex
View Answer
| February 18, 2005 11:21 AM
RPG
IBM DB2 load restart
I always believed that IBM utilities worked as a set of phases chained logically and that they, either completed the tasks(or phases) or not at all. With this in mind LOAD’s SHRLEVEL CHANGE support somehow changed this concept in that it resembles me more a program issuing SQL INSERTs than a batch utility that inserts [...]
View Answer
| February 18, 2005 8:42 AM
DB2, OS/390, UDB for mainframe, z/OS
I always believed that IBM utilities worked as a set of phases chained logically and that they, either completed the tasks(or phases) or not at all. With this in mind LOAD’s SHRLEVEL CHANGE support somehow changed this concept in that it resembles me more a program issuing SQL INSERTs than a batch utility that inserts [...]
View Answer
| February 18, 2005 8:42 AM
DB2, OS/390, UDB for mainframe, z/OS
Convert Spooled file to Hexadecimal Values
Not exactly sure what you want but you can copy a spooled file to a database physical file(CPYSPLF) then look at the contents of that in Hex(DSPPFM file, then F10,F11).
View Answer
| February 17, 2005 3:46 AM
RPG
Not exactly sure what you want but you can copy a spooled file to a database physical file(CPYSPLF) then look at the contents of that in Hex(DSPPFM file, then F10,F11).
View Answer
| February 17, 2005 3:46 AM
RPG
F22 key on AS/400
shift F10
View Answer
| February 16, 2005 12:53 PM
Database Management Systems, DataCenter, Hardware, i5, iSeries, Networking, OS/400, Servers, tips and tricks, Tools
shift F10
View Answer
| February 16, 2005 12:53 PM
Database Management Systems, DataCenter, Hardware, i5, iSeries, Networking, OS/400, Servers, tips and tricks, Tools
EPSON commands in rlu
You will most probably require a PCL (printer command language)for your printer. The command string is typically embedded in the output string i.e “Print bold” “your String”"End of line” etc. Hope this was able to resolve your issue
View Answer
| February 14, 2005 9:18 AM
RPG
You will most probably require a PCL (printer command language)for your printer. The command string is typically embedded in the output string i.e “Print bold” “your String”"End of line” etc. Hope this was able to resolve your issue
View Answer
| February 14, 2005 9:18 AM
RPG
Array processing In RPG IV LIE
I saw this answer to your questions a while back: Q. Does RPG have anything comparable to LotusScript’s or Visual Basic’s REDIM command that lets you redimension an array? A. RPG IV doesn’t directly support arrays with a variable number of elements. You have to handle all the storage allocation yourself, and since you have [...]
View Answer
| February 12, 2005 10:55 AM
Development, RPG
I saw this answer to your questions a while back: Q. Does RPG have anything comparable to LotusScript’s or Visual Basic’s REDIM command that lets you redimension an array? A. RPG IV doesn’t directly support arrays with a variable number of elements. You have to handle all the storage allocation yourself, and since you have [...]
View Answer
| February 12, 2005 10:55 AM
Development, RPG
How can I automatically refresh my screen?
– Create the display file with WAITRCD(300) as a parameter – for 5 minutes. – Don’t use EXFMT in the RPG. Use WRITE followed by READ. When the read is encountered it will wait for the specified 300 seconds then return control to the RPG. In the RPG you will also need to code an [...]
View Answer
| February 10, 2005 4:13 AM
i5, iSeries, OS/400
– Create the display file with WAITRCD(300) as a parameter – for 5 minutes. – Don’t use EXFMT in the RPG. Use WRITE followed by READ. When the read is encountered it will wait for the specified 300 seconds then return control to the RPG. In the RPG you will also need to code an [...]
View Answer
| February 10, 2005 4:13 AM
i5, iSeries, OS/400
