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
- 20053 Views
- Infinite Computer Solutions, I also Faced
- E-Mail Answers
Answer Posted / 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 |
Post New Answer View All Answers
What is the difference between copybooks and subprocedures in as400?
write an RPG program to calculate the marks of 5 students (A,B, C, D, E)in 3 different subjects (eng, math, sci) an display on the screen
how can you display specific subfile page on the screen in unequal subfile?
how do I play {insert rpg system here}?
what happens when sflsiz = sflpag? What are the advantages and disadvantages?
thanks mr.Harshad R Suryawaunshi,i'm new to as400 i think you are telling in rpgile i know only rpg400 if possible can you tell in rpg400
Suppose we have one database file and it is used by 5 programs and in 3 program we have to add some records in datbase file s what is the impact on other program?
what is the necessary keyword needed to scroll subfile records?
how does the rpg element work?
What is difference between bind by copy and bind by reference?
can I touch the array during treatments?
How to write record if no field or the field are different in physical file in rpgle ?
what is program status data structure?
Explain mdt?
What is the purpose of record level identifier?
