Answer / sekhar214

If you observe the data, the first letter of the data contains H,D or Z. Coding should be like this.

H Option (*NoDebugIO)
FFLAT1 IF E DISK Rename(FLAT1:RFLAT) PREFIX(A_)
FPF1 O E DISK
FPF2 O E DISK
FPF3 O E DISK
D
D
D
/FREE
READ FLAT1 ;
DOW NOT %EOF ( FLAT1 ) ;
IF %SUBST(A_FLAT1:1:1) = 'H' ;
WRITE RPF1 ;
ENDIF ;
IF %SUBST(A_FLAT1:1:1) = 'D' ;
WRITE RPF2 ;
ENDIF ;
IF %SUBST(A_FLAT1:1:1) = 'Z' ;
WRITE RPF3 ;
ENDIF ;


READ FLAT1 ;
ENDDO ;

*INLR = *ON ;




/END-FREE
YOU SHOULD HANDLE THE CODE , WHEN WRITING INTO PF1,PF2,PF3.

Answer / syam

Dear

Do you know the field length and data type of the above
data?

Answer / syam

Hi,

You can read flat file on RPG program.
FXXXXXX IF F 380 DISK UC
IXXXXXX DS 01 1 C1
I 1 120AA1
I 13 550AA2
IXXXXXX DS 02 1 C1
I 7 120BB1
I 71 750BB2
IXXXXXX DS 03 1 C1
I 15 120BB3
I 120 1750BB4

Answer / rizwana

Hi Deepakc999,

What Syam saying is correct
Since there are 2 types of flat files available
1. Flat File without DDS (Created through CRTPF Command)
2. Flat file with DDS

Type 1 --> Write
For the first type it is going to have same File name,
record format name & Field name, you have to rename the
REcord format name & Field name first.
To Rename Record format, Rename Keyword of F Spec is used.
And to have the different fields, create a data structure
and link it to the Flat file, there after you can very well
write it to the corresponding Pf.

Type 2 --> Write
Normal like writing to Pf.


For both the types refer to the below links.

1.http://tutorialindia.com/articles/as400/steps-to-process-
flat-file-in-rpg-iv.php

2.http://tutorialindia.com/articles/as400/example-codes-to-
process-flat-file-in-rpgle.php

in which journalling which attributes are necessary??/

1 Answers   CTS,

---

What is significance of a file designated as a Primary file in Rpg400 program....also what's use of secoundry file

1 Answers  

---

what is EXCEPT command in rpg and use

1 Answers   Active Brains,

---

How do you find out whether a record is present in the physical file without reading the file? for Example Employee No: 100 in an Employee master.How do we find out whther 100 is present in Employee master without reading the file?

11 Answers   Bank Of America, CSC, IBM,

---

I have learnt through Net that Debugging a Batch job involves 1. Submit the job with the HOLD (*YES) parameter: SBMJOB HOLD(*YES) or Hold the job queue that before submitting the job by using the HLDJOBQ command. 2. Determine the job name, user, and number of the submitted job by using the WRKSBMJOB command. 3. Type the Start Service Job command on your screen: STRSRVJOB JOB(job name/user/number) 4. Type the Start Debug command on your screen: STRDBG 5. Release the job in the jobq. Type WRKSBMJOB and then put a 6 beside the job to be released and press enter, or, if the job queue was put on hold, release the job queue with the RLSJOBQ command. 6. A display appears when the job is ready to start, saying that you can now begin debugging the job. Press F10 to show the Command Entry display. 7. Now you can start debugging by entering an Add Break Point command: ADDBKP 8.ENDDBG 9.ENDSRVJOB I tried this for RPG/400 Program and up to six steps of the above it's ok,but for me no source is displayed and i typed DSPMODSRC in Command line but still i can't see the sourceif i press F.10 and enter command ADDBKP i don't know how to add break points through it,usually i add break points using F.6 for Interactive job debugs,but since this is batch i don't know sir,Please help me out. I was asked this question in a interview,i know only RPG/400 and i’m asking for debugging of RPG/400 program only sir. or is it only possible to debug BATCH RPG ILE JOB and it is not possible to debug BATCH RPG/400 JOB kindly help me out sir

4 Answers   HSBC,

---

How can you delete a record from a file in RPG without using DELETE oppcode?

2 Answers   UST,

---

Suppose my file has 10 fields and I want to make the 2nd field zeros in all records. And assume I have millions of records and I dont want to read each record and update the desired field with 0. Any other way to do this in one step operation?

1 Answers  

---

How to identify the object has compiled with the debug view as *source without using STRDBG?

6 Answers  

---

Need a sql query: retrive all duplicate records in table

3 Answers  

---

I have 1000 records in a file. I would like to generate 10 identical reports from this record with same format (structure of records) how do I do this?

1 Answers   IBM,

---

1) How to define keyed file in CL pgm. 2) How can i read particular records in CL pgm from database file.

2 Answers  

---

i hav 2 logical files(L1,L2) both r derived from one physical file(P1). how can i use both the logical files in one RPG program? if yes what i have to d.

5 Answers   TCS,

---