Interested to Buy Any Domain ? << Click Here >> for more details...
what is overlay? how can we pass parameters in cl or rpg
programing? how can we get data area value in cl or rpg
programming?
- 2 Answers
- 14651 Views
- IBM, Patni, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / radha sammangi
1)
overlay : This is keyword which is used for overlays the storage of one subfield with another subfield in a data structure.
Ex:
D Datastructure DS
D Fullname 15a
D Firstname 6a OVERLAY(Fullname)
D Middlename 5a OVERLAY(Fullname:7)
D Lastname 4a OVERLAY(Fullname:12)
Even we can use OVERLAY(Fullname :*NEXT) instead of positions.
2) CALL PGM(program name) PARM(A B C....) in CL
CALL 'Pgmname' Plist /*In RPG
Plist KLIST
PARM A
PARM B
PARM C
3)
RTVDTAARA in CL
RTVDTAARA DTAARA(DA1) RTNVAR(&Var)
We can use IN and OUT operations for reading and writing data area in RPG programs.
| Is This Answer Correct ? | 15 Yes | 2 No |
A rpg or clp command to find if the file field is defined as a character or numeric field.
Please help me, I have created window subfile,I have created Footer with same lengh and postion of window SFL. When I call the pgm, first is shows only Footer and then it shows subfile records.This time Footer is not showsing ..plz hel me how can i do it...? Sameple DDS and RPG: A R WIN1 SFL A*%%TS SD 20090130 165346 MUNSHIJ REL-V4R2M0 5769- PW1 A FLD001 1Y 0B 4 3EDTCDE (Z) A ATFILE R O 4 7REFFLD (QWHFDBAS/ATFILE LIB/LIBF- A ILE) A R WINCTL SFLCTL (WIN1) A*%%TS SD 20090202 123459 MUNSHIJ REL-V4R2M0 5769- PW1 A ALTNAME ('y') A SFLSIZ (0004) A SFLPAG (0004) A WINDOW (FOOTER) A ROLLUP (27) A ROLLDOWN (28) A CF12 (12 'Cancel') A 50 SFLDSP A N51 SFLDSPCTL A 51 SFLCLR A 1 2'Select Option,Press enter' A 2 3'1= Select' A R FOOTER A* A WINDOW(8 31 9 43) A 8 4'F12 = Cancel' A R DUMMY ASSUME A 24 10' ' in RPG: Dow *IN12 = *Off Write Footer Fxfmt WInCTL
how can we can we the data decimal error?how can we open such file in support
How do I read records from Subfile? what is the purpose of READC explain with example?
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
I need to generate outfile for object of all the user lib. in the sysmte using cmd DSPOBJD. But this cmd is correcpted in my server,Any body tell me is there any alternative...?
How to index LF by relative record no (RRN)
suppose we have 10 members in physical file and i have to use 4 out of 10 so how can we read this in RPG
Suppose we have 10 records with same name and we are reading using READE,after 4 record i have to use CHAIN what is the output
what is the rpg system?
How to check which are the pgms using 1 perticulate file.? I know there is many tool available for X-reference...but need to know is there any command available in the system...?
How to change the name of physical members Dynamically?
RPG400 
