hey guys
here u can find my disply file who contains the first screen where i enter a code and then a second screen showing this code in addition to a subfile who contains the employees related to this code entered
screen 1 :
-------------
Code . . . . . :
1=Validate F3=Exit F4=Prompt F8=Forward F12=Previous
F6=TEST
screen 2 and subfile
-------------
Code . . . . . : CTYM
Beneficiary ID Beneficiary name Account number
_ T5893 JFKSK 5001-201048-001
_ 12344 ABCHRI 0002-572584-003
1=Validate F3=Exit F4=Prompt F8=Forward F12=Previous
F6=TEST
what i want is that in my RPG program to have the F6 function key to see where the ##INP is equal to '1' so he can perform some code instructions
Can you help me do this please?
here u can find my disply file who contains the first screen where i enter a code and then a second screen showing this code in addition to a subfile who contains the employees related to this code entered
Code:
[B]A DSPSIZ(24 80 *DS3) A INDARA A CF03(03 'Exit') A CF06(06 'TEST') A CF04(04 'Prompt') A CF08(08 'Forward') A CF12(12 'Previous') A R HEADER A OVERLAY A ##DATE 11A O 1 68 A COLOR(GRN) A ##WSID 10A O 2 2 A COLOR(BLU) A ##USID 10A O 2 68 A COLOR(GRN) A R SCREEN1 A OVERLAY A RTNCSRLOC(&CSRRCD1 &CSRFLD1 A CSRRCD1 10A H A CSRFLD1 10A H A CSRPO1 4S 0H A 26 4 2'Company Code . . . . . :' A 26 COLOR(GRN) A 26 ##COM_CDE 10A B 4 27 A 26 N95 A 26N45 COLOR(WHT) A 26 45 95 DSPATR(RI) A 26 45 95 COLOR(RED) A 26 45 DSPATR(PC) A R SCREEN2 A 98 OVERLAY A RTNCSRLOC(&CSRRCD2 &CSRFLD2 A CSRRCD2 10A H A CSRFLD2 10A H A CSRPO2 4S 0H A R RSTFL SFL A ##INP 1A B 11 02COLOR(WHT) A ##BNFID 10A 11 4COLOR(GRN) A ##BNFNAM 35A 11 22COLOR(GRN) A ##BNFAB 20A 11 61COLOR(GRN) A R RTSFLCTL SFLCTL(RSTFL) A SFLSIZ(9999) A SFLPAG(0009) A 32 SFLEND(*MORE) A 98 OVERLAY A 99 SFLDSP A N26 SFLDSPCTL A 26 SFLCLR A RTNCSRLOC(&CSRRCD &CSRFLD & A CSRRCD 10A H A CSRFLD 10A H A CSRPOS 4S 0H A RECCOUNT 4S 0H SFLRCDNBR(CURSOR) A 30 4 2' Code . . . . . :' A 30 COLOR(GRN) A 30 ##COM_CDE 10A 4 27 A 9 4'Beneficiary ID' A COLOR(WHT) A 9 22'Beneficiary name' A COLOR(WHT) A R FUNCTION A OVERLAY A 22 15'F3=Exit' A COLOR(BLU) A 22 25'F4=Prompt' A COLOR(BLU) A 22 50'F8=Forward' A COLOR(BLU) A 22 63'F12=Previous' A COLOR(BLU) A 23 2'F6=TEST' A COLOR(BLU) A R ERROR A OVERLAY A 25 ##ERR 76A O 24 2COLOR(WHT) [/B]
screen 1 :
-------------
Code . . . . . :
1=Validate F3=Exit F4=Prompt F8=Forward F12=Previous
F6=TEST
screen 2 and subfile
-------------
Code . . . . . : CTYM
Beneficiary ID Beneficiary name Account number
_ T5893 JFKSK 5001-201048-001
_ 12344 ABCHRI 0002-572584-003
1=Validate F3=Exit F4=Prompt F8=Forward F12=Previous
F6=TEST
what i want is that in my RPG program to have the F6 function key to see where the ##INP is equal to '1' so he can perform some code instructions
Can you help me do this please?
Comment