Interested to Buy Any Domain ? << Click Here >> for more details...
where we give the MSGSFL in rpg400?
- 4 Answers
- 13349 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / renjith
The message sufile is using for getting the messages on
subfile. If there atre multiple messages, message field
will show the first message and + sign and when we press
page down we can see the remaining msgs.
| Is This Answer Correct ? | 6 Yes | 0 No |
you will not declare/give your MSGSFL in the RPG pgm.
It will be declared(or more precisely included) in the DSPF, at the bottom; used by your RPG program.
Search for sp. K/words like SFLMSGRCD, SFLMSGKEY, SFLPGMQ in the DSPF; that's your MSG Subfile.
| Is This Answer Correct ? | 4 Yes | 0 No |
Answer / surya siram
We can create a message sub-file (MSGSFL) in display file, if you want to display multiple messages at a time on the screen.
| Is This Answer Correct ? | 0 Yes | 0 No |
How to add 2 new fields in a file? How many ways are there in as400?
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
do you use message subfiles? What are the necessary keywords required coding a message subfile?
How to find d key field of a pf that doesn’t have source physical file?
Hi, I am getting the error in RPG (All Record Formats for externally-described file ABCD ignored or dropped due to error; file ignored.) Please suggest any
When we have a file with Duplicate records and I want to read the unique record from the file. For example a file containing Emp Name as 'Ram' and there are 3 entries of it. So how to read a unique record from File?
wat is the difference between dataarea and data queue?
5 Answers Airtel, Four soft, Shahi Exports,
How do you do indexing in a physical file?
i would like to know under what circumstance the object will get locked on AS400.
what is the equivalent keyword for CHAIN opcode ??
In case if I want to know whether a record exists in a file, which one do you prefer CHAIN or a SETLL and why ?
Program to read marks of 10 students for 4 subjects and compute and display total marks and status of each student in rpg
RPG400 
