Interested to Buy Any Domain ? << Click Here >> for more details...
3. Given the DOS Specification below and the following
information:
• Indicator 50 is off
• No records have been written to the subfile
What will be the result if the EXFMT operation code is
performed on the record format CTLR?
A R SUBFL
A DESCRIP 101 6 1ODSPATR(UL)
A DFT(’NOT FOUND’)
A R CTLR SFLCTL(SUBFL)
A N50 SFLDSP
A SFLDSPCTL
A SFLINZ
A 67 SFIJEND
A SFLSIZ(13)
A SFLPAG(12)
A ACCOUNTNO 100 S 10
a.) Only AccountNo will display
b.) SUBFL will be initialized with 13 blank records
c.) An I/O exception error will occur
d.) The screen will display 12 records with ‘NOT FOUND’
- 4 Answers
- 12504 Views
- IBM, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / naveen chanda joshi
I think, the answer is option D. If default value ('Not
Found') was not mentioned then it would have display 12
blank records..
| Is This Answer Correct ? | 7 Yes | 1 No |
Answer / reecha
Hi ,
I m Reecha(HCL)
As we are trying to display SFL with empty records, it will
give "Session or device error" .One can control this
either using SFLEND keyword where in code u need to set
it on write the subfile and then setoff.
If this is not controlled then "Session or device error"
will come else empty sfile will be displayed
| Is This Answer Correct ? | 5 Yes | 1 No |
Answer / shobhit
As SFLDSPCTL is specified and SFLDSP is off it will not
give the Session or Device error.
| Is This Answer Correct ? | 4 Yes | 1 No |
I have a Physical File name 'File1', which is present in two libraries named 'LIB1' & 'LIB2'. These 2 libraries are listed in the library list. Would like to access data from this file from these two libraries using RPG program. How to do this, any idea?
How can we access Interactive job LDA in Batch Job?. and How we can access a file in interactive QTEMP lib in Batch job?.
This is my Physical file 'EMPS' existing in library "TAMIL1" and its record format is 'EMPRCD" a)its source is R EMPRCD ENO 4 0 ENAME 10 EADD 10 b)The records present in EMPS are as follows ENO ENAME EADD 0001 tamil coimbatore 0002 kumar bangalore 0003 sunder bangalore 0004 arunkumar chennai 0005 pandi hyderabad 0006 santhosh hyderabad 0007 sasi salem 0008 kalai chennai 0009 suresh hyderabad 0010 vijay bangalore 0011 Arul chennai 0012 velu chennai 0013 khan bangalore 0014 praba chennai 0015 praba.p coimbatore 0016 anand ooty 0017 raja erode 0018 sankar erode 0019 vadivel namakkal 0020 anbu chennai 0021 Ajith mumabi c)now i want to select the 'ENAME' field records starting with 'S' for that i have created a RPG program its source code is PGM DCLF FILE(TAMIL1/EMPS) DCL VAR(&MYENO) TYPE(*CHAR) LEN(4) OVRDBF FILE(EMPS) SHARE(*YES) OPNQRYF FILE((TAMIL1/EMPS)) QRYSLT('ENAME *EQ %WLDCRD("S *")') READ: RCVF RCDFMT(EMPRCD) MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END)) CHGVAR VAR(&MYENO) VALUE(&ENO) SNDUSRMSG MSG(&MYENO) SNDUSRMSG MSG(&ENAME) SNDUSRMSG MSG(&EADD) GOTO READ END: CLOF OPNID(EMPS) DLTOVR FILE(EMPS) ENDPGM Is this coding correct sir,the program gets compiled,and if i call it it says query running but records are not displayed.please help me out
How can you delete a record from a file in RPG without using DELETE oppcode?
How can we override a file during runtime in RPG? Without using OVRDBF or calling a CL program
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
1.what are the ARITHMETIC EXPRESSIONS IN CL PGM? 2.How to PASSING PARAMETER TO CL PGM?
what is mean by *MAP and *DROP?what commands use these two keywords?why are they used?
How to handle duplicate error handling in RPG?
What is file identifier where we can use?
how do you use commitment control in rpg?
How can we read a particular record from the database file which is not having DDS (Flat File). For example, there are 100 records in the flat file. How can we retrive 15th record in RPG/400 program (Without using CL)
RPG400 
