Hi , My As400 version is V5R4M0 i am using CPYTOIMPF command in following way CPYTOIMPF FROMFILE(OSLSLF3/SLP05) TOSTMF(/USGVAR/SLP05.CSV) + MBROPT(*ADD) STMFCODPAG(*PCASCII) + RCDDLM(*CRLF) STRDLM(*NONE) But i am getting Junk values . Can you please help ?...
| January 29, 2014 11:56 AM
Run time Error in CL Program
Hi Team, I am getting a run time error (While Calling the program) in the following code. PGM PARM(&A &B) DCL VAR(&A) TYPE(*DEC) LEN(2 0) DCL VAR(&B) TYPE(*DEC) LEN(2 0) DCL VAR(&TOTAL) TYPE(*DEC) LEN(4 0) DCL VAR(&ADD) TYPE(*CHAR) LEN(4) CHGVAR VAR(&TOTAL) VALUE(&A+&B) CHGVAR VAR(&ADD) VALUE(&TOTAL) SNDMSG MSG(&ADD) TOUSR(ATANEJA) ENDPGM —————————————————————————————————————— Message ID . . . ....
| January 21, 2014 6:10 AM
, CL Program
Pageup and Pagedown in Single page Subfile using SQL
Hi All, Am looking embedded SQL to do page up and page down. I know this can be achieved with Fetch relative. But somewhere I am missing some logic. Here is my loadsubfile routine logic. First Prepare the SQL string into variable WSQLSTR then c/exec sql c+ PREPARE S1 From :WSQLSTR C/end-exec...
| January 17, 2014 1:10 PM
How can I determine the CCSID of a file in IFS?
I have a bunch of files in IFS that have a wide variety of CCSIDs and I’m trying to create a simple RPGLE that will allow users to view all these files. Now our system CCSID is 655335 and our jobs have a default CCSID of 37 so when I try to display different CCSIDs,...
| January 7, 2014 12:49 PM
Reading liblist through an ILE program
Our part of the company controls what objects our programs on our AS/400 work, running them with different liblists. But we know that some operations can’t be controlled by this. Our program needs to read the liblist and decide on some of the libraries in it (and how to act). But we couldn’t find the...
| December 20, 2013 2:12 PM
Decimal data error
Hi all, I have a batch job which calls a CL program which internally have a call to another RPG program, after submission of the job I am getting decimal data where…. I’m adding the value of the Zoned decimal variable to Packed decimal variable. But when I run the RPG program individually there is...
| December 4, 2013 1:31 PM
, CL Program
, RPG Program