What would be the result on writing a data record to a PF
file using the "WRITE" opcode after the SETON *ON *INLR
statment?
- 10 Answers
- 15900 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / prabhas
All files used remain opened till it executes last 'C' spec
statement
| Is This Answer Correct ? | 9 Yes | 1 No |
Answer / naveen chandra joshi
It will write the record in the database file even after LR
indicator sets on.
Program execution continues till last C specification.
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / syam
Hi Prabhas thanks....Why it is writing? Seton *On *Inlr not
closing the pf file?
| Is This Answer Correct ? | 4 Yes | 2 No |
Answer / raghavendra malwadkar
It will sucessfully write the data record to a PF and only
after executing the last record, LR indicator sets on,
hence even if you specify Seton *LR any where in the
program, the LR indicator is *ON only after executing the
last record.
Hope it suffies you concern.
| Is This Answer Correct ? | 5 Yes | 3 No |
Answer / harshad r suryawaunshi
Write statement will get executed successfully and record
will get added in the file. Program execution continues til
the last line of C specs.
| Is This Answer Correct ? | 3 Yes | 1 No |
Answer / sree
The LR indicator says, the last record in the file has
reached and hence there are no input records to process. But
this will not prevent in writing the record to file.
Please correct me if I am wrong.
| Is This Answer Correct ? | 0 Yes | 0 No |
Answer / sakshi anand
i think it will not be executed because the files is closed when we use seton lr/or the odp is closed now.
| Is This Answer Correct ? | 0 Yes | 2 No |
Answer / sakthi
all files will be closed with inlr on and we can't perform write operation on a closed file. We will get error.
| Is This Answer Correct ? | 0 Yes | 2 No |
Answer / gsp
The 'Write' statement has to be witten before
the Lr On statement.
Reason: All files are closed and program ends
as soon as Lr is on.
| Is This Answer Correct ? | 5 Yes | 10 No |
1. Which Built-In-Function will you use to achieve the following functionality? CLONO1NO2NO3 Factorl÷÷+OpcdeFactor2++÷ResultLenDHHiLoEq C QTY IFLT *ZERO C QTY MULT -1 QTY C ENDIF a) %ABS b) %TRIM c) %TRIMS d) %UNS
You have a *USE authority on a Library and *All authority on a file in that Library.Can you change the data in that file?
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
where we give the MSGSFL in rpg400?
What is the difference between inner join @ outer join
how to retrieve RRN value in RPGLE program
is this a rpg channel?
Q:HI friends accually ihave one problem plesase let me know the alternate code of this code. Related field description of code: Add a field, CALvsPRD, "Calendar Day Starts Before/After Production Day" to the parameter set WRKORDER which accepts values 'A' or 'B' o B = Calendar Day Starts Before Production Day o A = Calendar Day Starts After Production Day o Any other value indicates the production and calendar dates are always the same. code: Automatic Execution Of *INZSR Subroutine /Z01 * retrieves WRKORDER field values. /Z01 * Calculate default Production Date and return it to caller. /Z01 * Production date defaults to system date /Z01 C Eval P@Pdate = %DATE() /Z01 * unless Calendar date starts Before PDN(production) date and /Z01 * system time is before PDN Start Time then /Z01 * PDN date is yesterday. /Z01 C If W@CALvsPRD = 'B' and /Z01 C %TIME() < %TIME (W@Strtime) /Z01 C Eval P@Pdate -= %Day(1) /Z01 * unless Calendar date starts After PDN date and /Z01 * system time is *GE PDN(production) Start Time then /Z01 * PDN date is tomorrow. /Z01 C ElseIf W@CALvsPRD = 'A' and W@Strtime > *Zero and /Z01 C %TIME() >= %TIME (W@STrtime) /Z01 C Eval P@Pdate += %Day(1) /Z01 C EndIf /Z01 C Eval *InLr = *On
how to change the length of the field in a physicalfile?
How to sort an array in descending in RPG
Can anybody tell me the setps to create .csv file in IFS folder on AS/400. I also need to know how I can send this .csv file to PC in xls sheet.....?
what is post opcode do
RPG400 
