Interested to Buy Any Domain ? << Click Here >> for more details...
In single page subfile,if I select the mutiple options in 1
page and without pressing enter,I press rollup key
(pagedown).In such case how I can handle it in rpg becasue
in single page we have to handle it in pgm. It would be
helpful if any one answer with coding
- 4 Answers
- 19588 Views
- Infinite Computer Solutions, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / swetha p rao
We can handle this using physical file RRN value.When user
enters some options in the first page and takes a pagedown
Read the changes on the subfile using ReadC ie; read the
option entered for that record and save the physical file
RRN value for that record in a temporary file along with
option (You can get RRN value by declaring File information
data structure for that physical file)
When you load the records in the subroutine bfore writing
the values to subfile ,Chain the temporary file with RRN
value and if the RRn is present in the temporary file move
the corresponding option to the Subfile options.
Check this temporary file evrytime you load the records on
subfile and update this temporary file evry time there is a
chnage on the subfile options.
Clear the temporary file when the user confirms delete or
when user doesnt want to delete.
| Is This Answer Correct ? | 14 Yes | 2 No |
Answer / ashish kashliwal
We can handle this using arrays. When user
enters some options in the first page and takes a pagedown
then read the changes on the sub-file using READC. first
validate the option, if entered options are valid then in
first array store the fields value (through which we can
identify record as unique in sub-file) and in second array
store the option.
Whenever load the sub-file, then first check if subfile
record is in array (with lookup), then write option equal
to second array value and clear the array element. else
display blank option.
Whenever user press enter (suppose user choose one option
in page one and another option on page 3) then process
option through array.
| Is This Answer Correct ? | 8 Yes | 1 No |
Answer / sanjib
CEELOCT and CEEDATE are APIs that exist on the system.
You do not need to create them.
In essence, what the CL that I supplied does is:
1) Use the CEELOCT API to convert the current date to
lillian.
2) Then you add or subtract the number of days you need
from the lillian date.
3) Then you use CEEDATE to convert the new lillian date
back to the date format that you wish, in this case, I used
YYYYMMDD.
Current Local Time (CEELOCT), to convert a date to Julian
format. To create this
program, you must use the CRTBNDCL command alone or the
CRTCLMOD
command and the CRTPGM command together.
PGM
DCL &LILDATE *CHAR LEN(4)
DCL &PICTSTR *CHAR LEN(5) VALUE(YYDDD)
DCL &JULDATE *CHAR LEN(5)
DCL &SECONDS *CHAR 8 /* Seconds from CEELOCT */
DCL &GREG *CHAR 23 /* Gregorian date from CEELOCT */
/* */
CALLPRC PRC(CEELOCT) /* Get current date and time
*/ +
PARMS (&LILDATE) /* Date in Lilian format */ +
&SECONDS /* Seconds field will not
be used */
&GREG /* Gregorian field will
not be used */
*OMIT /* Omit feedback
parameter so exceptions +
are signalled
*/
CALLPRC PRC(CEEDATE) +
PARMS (&LILDATE) /* Today’s date */ +
&PICTSTR /* How to format */ +
&JULDATE /* Julian date */ +
*OMIT
ADDPGM LIB1/FILEX MBR(’MBR’ *CAT &JULDATE’)
ENDPGM
| Is This Answer Correct ? | 0 Yes | 4 No |
Answer / guest.
System will take care of it . You do not need to specify
anything for that. Until user does not press Enter key
ReadC won't detect any change record.
First build the file according to the Size/Page. On Page up
load it again . u do not need to worry about the option u
have entered on first page.
| Is This Answer Correct ? | 1 Yes | 18 No |
When PGMA calls PGMB for the first time PGMB executes the *INZSR. PGMB uses the RETRN operation to return to PGMA. When PGMA call PGMB the second time is the *INZSR executed?
Hi,Please give me complete code with this logic. The question is how to read the records from a file with load an array of size with error condition? (The logic is Z-Add 0 IDX *LOVAL SETLL FILE READ FILE 99 *IN9 DOWEQ *OFF IDX ANDLT 99 ADD 1 IDX MOVE FIELD ARR,IDX READ FILE 99 ENDDO)please give me complete code with explanation?
i want to retrieve record b/w 2 dates in as400
We have job which is running as batch. It takes atleast 06 hours to complete tht job. But I wanna do tht job with in 3 hours?
In ProgramB there is a SBMJOB, which is a call to program C .There is also a CALL to program D from B. How would you check the program C has been executed in D?
1.CA(command Atention key)& CF(command Function key) difference with example?Please can any body tell me in real time exp? 2.Can any body tell me some mandatery function keys using while creating any screen with use of SDA-FUNCTION kEYS?
The PGMA calls PGMB.PGMB generates a report.The report should contain the called program name(PGMA).How do i get the called program name in PGMB to print it on the spool file?(calling program name should NOT be hard coded or passed as parameter to called program?
Can anybody tell me, does CL/400 handle LEVEL check while running the CL program....? plz share your experience...
parameters cannot be passed in which one??
how do I declare a table or array in rpg iv?
How to create a login screen using a command instead of display file.... intention is to get a password field on a command..... how do you achieve this...
suppose there are 100 records and i want to read records between 60-70 how we can read this 10 records in rpg
RPG400 
