Interested to Buy Any Domain ? << Click Here >> for more details...
please guys help me,I need to write a program that shows more
than one way to display a subfile. Both views are of the same
file but sorted differently and show different fields of the
same file when the user presses a function key. send me code
- 4 Answers
- 7823 Views
- Virtusa, I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / guset
You can create two subfile record format.
When press function key then it will show second subfile
record with different fields. but records showing different
manner i mean suppose the file has 15 records. Subfile size
is 5 then first time it will show first 5 if we press
function key then it will show next 5 records with
different field name.
| Is This Answer Correct ? | 3 Yes | 0 No |
Answer / venkat
by multi-memeber concept we can write as per your requirements
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / chandrababu
This Case we can do by using Subfile fold/drop option. for Example F11 function key for Fold/Drop in subfile. see the code below.
FDSPLYFILE CF E WORKSTN SFILE(SFLREC1:@RRN1)
SFILE(SFLREC2:@RRN2)
FDBFILE IF E K DISK
D @RRN1 S 5 0 INZ(0)
D @RRN2 S 5 0 INZ(0)
C EXSR LOAD
C WRITE FOOTER
C DOW *IN03 = *OFF
C 03 LEAVE
C EXFMT CTLREC1
C IF *IN11 = *ON
C EXFMT CTLREC2
C ENDIF
C ENDDO
C EVAL *INLR = *ON
C LOAD BEGSR
C Read DBFILE
C DOW Not %EOF
C EVAL @RRN1 = @RRN1 +1
C EVAL @RRN2 = @RRN2 +1
C WRITE SFLREC1
C WRITE SFLREC2
C Read DBFILE
C ENDDO
C IF @RRN1 > 0 and @RRN2 > 0
C SETON 3031
C ENDIF
C ENDSR
| Is This Answer Correct ? | 1 Yes | 0 No |
I want to declare the number of elements of an array dynamically in RPGLE ? Is it possible? If yes, then how do I do it ?
Can we possible to key with the date field?
Q1.How we can copy the data of file one session to another session? Q2.how we can execute a loop infinitely in AS/400 coding? Q3.In ALDON tool,multitask is posible on a perticular object by the user?
What will be your approach in going either for OPNQRYF or Logical files. Which one to go for?
What is the syntax of passing parameters to a procedure by value?
What will be the value of STRING after line 0106 is executed in the code below? 0101 E* Fromfiletofile..tabnameprnentlenpdatabnamlenpda 0102 E ARR 8 1 0103 ISTRING DS 0104 I 1 8 ARR 0105 C MOVE *BLANK STRING 0106 C MOVEA'ABC' ARR A) 'AAAAAAAA' B) 'BBBBBBBB' C) 'CCCCCCCC' D) 'ABC ' E) ' ABC'
There is a excel sheet having details of Old account number and new account number. I need to update these details in my AS400 files. i.e. all the records having old account number should be replaced with new account number. There can be 100 or 200 or 300 PFs...no fix files known. how can we do this?Solution should be performance oriented
can anyone say,what is the use of operation extended H/N/P?
i would like to know under what circumstance the object will get locked on AS400.
difference between 1:%found and %equal built function in detail with example .
1) How to define keyed file in CL pgm. 2) How can i read particular records in CL pgm from database file.
Explain mdt?
RPG400 
