IT Answers » as/400 data

As400/CLLE issue

Nikrajpapa — Tue, 14 Feb 2012 07:18:33 +0000

i made a PGM for read as well as write the record in DSPF but my PGM doesn`t read that PF it not showing any error .. it shows Blank value in varible.

PGM

DCL VAR(&WS) TYPE(*CHAR) LEN(10) /* variable */

DCL VAR(&WSPID4) TYPE(*CHAR) LEN(10) /*DSPF field*/

DCL VAR(&PDPID) TYPE(*CHAR) LEN(10) /*PF FIELD*/

DCLF FILE(KRGUNN/TP001P) OPNID(OP1) /*PF*/

DCLF FILE(KRGUNN/TPW005D) RCDFMT(RECDSP) /*DSPF*/

OPNDBF FILE(KRGUNN/TP001P) OPTION(*INP) OPNID(OP1)

POSDBF OPNID(OP1) POSITION(*START)

RCVF RCDFMT(RTP001P) OPNID(OP1) /*READ PF*/

CHGVAR VAR(&WS) VALUE(&PDPID) /*MOVE PF VALUE TO VARIABLE*/

CHGVAR VAR(&WSPID4) VALUE(&WS) /*MOVE VARIABLE TO DSPF FLD*/

SNDRCVF RCDFMT(RECDSP)

CLOF OPNID(OP1)

EXIT: ENDPGM

Reading multiple records from dataQ

Rr22 — Tue, 07 Feb 2012 11:39:12 +0000

New Answer by MTidmarsh

Notepad++ Regex to delete a line

DoneThat — Wed, 21 Dec 2011 20:18:00 +0000

Well I’ve put in a lot of time, effort, energy & it’s a complete bust.
Using Notepad++ Regex, does anyone know how to “delete any line containing 1 and only 1 slash (/)”?

Here is a sample file…
1. C;Directory1

2. C;Directory1Filename
3. C;Directory2

4. C;Directory2Filename
5. any text

In the above sample, lines 1 and 3 would be deleted.

Even a 2 pass method would be fine…I.E. a blank line is left and then going back with “Extended Mode” to get rid of those.

If you know of another free Windows editor that can do it (using any method) – THAT would be fine!

I DID start to develop a 3 pass method but I’d rather find someone that might actually know how to do it!

AS/400

Sameeranber — Mon, 19 Dec 2011 07:34:39 +0000

How can i delete the datafiles within endofday script

No such path in wrkflr

a1maida — Wed, 16 Nov 2011 19:07:46 +0000

CPYFRMIMPF FROMSTMF(‘/SANWEIGH/SANSPACE.CSV’) TOFILE(AXMTESTLIB/SANSPACE01 ) MBROPT(*REPLACE) RCDDLM(*CRLF) File system error occurred. Error number 3025. Copy command ended because of error.

Arabic characters in AS/400 file

BISHT321 — Tue, 12 Oct 2010 12:30:25 +0000

Hi ,

I have insert some ARABIC Charaters in in P.F. if i am going to upddta and trying to insert cherates the cgarters are showing as ????????.

Pls help .

Thanks ,

Bisht

How to delete data from IFS directory?

Sms121 — Fri, 03 Sep 2010 07:49:42 +0000

How to write the program for deletion of data from IFS directory?

Any cl program?

In one of your iseries machine,history logs are not getting displayed

harisudhan21 — Mon, 05 Jul 2010 13:22:58 +0000

If the joblog for a certain iSeries does not appear earlier than a month , what might have been changed?

Can any one tell me how local data area and user defined data area are used to pass data between jobs?

Kaly — Wed, 23 Jun 2010 10:51:19 +0000

i ‘m new to as/400.in an interview i was asked
this question.give a practical example for passing information or data through
local data area.I only know that data area is an object used to
store tiny bits of data or it can store one value at a time and it is used to
store frequently changing values or datas.thats all i know about data area can
any one tell me how local data area and user defined data area are used to pass
data between jobs with a example or coding.thanks in advance.

how to declare a standalone field of 32000 bytes or more in RPGLE?

svankipu — Thu, 01 Apr 2010 11:27:48 +0000

how to declare a standalone field of 32000 bytes in RPGLE?
It is showing only 1024-bytes(in debug).
Is there any restriction on length in RPGLE or FREE-FORMAT RPG? pls. let me know. Thanks in advacne.