Can there be more than 1 MSGSFL per RPG/400 display file?

5 pts.
Tags:
Display File
IBM iSeries
MSGSFL
RPG/400
I am trying to use more than one MSGSFL for one display file.  One is for a WINDOW (which works).  I then added one for the initial screen.  When I go to initially write it (WRITEMSGCT1) I get a permanent I/O error.  Is it possible to have more than on MSGSFL per display file? See the following Display file.

700 A DSPSIZ(27 132 *DS4) 10/22/10

800 A CHGINPDFT

900 A PRINT

1000 A* ERRSFL 10/25/10

1100 A HELP(01) 10/22/10

1200 A CF02(02 'Update Non cancel Info')

1300 A CF06(06 'Get Scan')

1400 A CF08(08 'Inquiry')

1500 A CF10(10 'Upadte')

1600 A CF12(12 'Fold')

1700 A CF22(22 'Cancel')

1800 A CF23(23 'Udate main info')

1900 A*

2000 A R SFZIPW

2100 A WINDOW(2 1 23 80 *NOMSGLIN) 10/25/10

2200 A WDWBORDER((*COLOR WHT) (*DSPATR RI))

2300 A WDWTITLE((*TEXT '* Paylink Contract-

2400 A Entry *') *CENTER)

2500 A WDWTITLE((*TEXT 'F6=Get Scan F8=Inq-

2600 A iry,F12=Exit,F22=Enter CancelAmts')-

2700 A *CENTER *BOTTOM)

2800 A OVERLAY

2900 A 1 2'CONTRACT #:'

3000 A XXCONT 15A O 1 14

3100 A XXNAME 30A O 1 31

3200 A VHACCP 4S 0O 2 4

3300 A VHACCS 3S 0O 2 9

3400 A XXACNM 30A O 2 15

3500 A 3 2'Price(before tax):'

3600 A XXTTLF 7Y 2B 3 22DSPATR(HI)

3700 A EDTCDE(K)

3800 A CHECK(RB)

3900 A 79 DSPATR(PR)

4000 A 4 35'KBill Amt:'

4100 A VHKAMT 9Y 2B 4 54DSPATR(HI)

4200 A EDTCDE(K)

4300 A CHECK(RB)

4400 A 79 DSPATR(PR)

4500 A 4 2'Taxes on Sale:'

4600 A XXTAX 7Y 2B 4 22DSPATR(HI)

4700 A EDTCDE(K)

4800 A CHECK(RB)

4900 A 79 DSPATR(PR)

5000 A 3 35'Dealer Cost:'

5100 A VHTTLC 9Y 2B 3 54DSPATR(HI)

5200 A EDTCDE(K)

5300 A CHECK(RB) 10/22/10

5400 A 79 DSPATR(PR) 10/22/10

5500 A 5 2'Total Sale Price:' 10/22/10

5600 A XXCHRG 7Y 2B 5 22DSPATR(HI) 10/22/10

5700 A EDTCDE(K) 10/22/10

5800 A CHECK(RB) 10/22/10

5900 A 79 DSPATR(PR) 10/22/10

6000 A* 10/22/10

6100 A 5 35'Cancellation Date:' 10/22/10

6200 A XXCAND 6Y 0B 5 58EDTWRD(' / / ') 10/22/10

6300 A 85 DSPATR(PC) 10/22/10

6400 A 79 DSPATR(PR) 10/22/10

6500 A DSPATR(HI) 10/22/10

6600 A 6 2'Down Payment:' 10/22/10

6700 A XXDWPY 7Y 2B 6 22DSPATR(HI) 10/22/10

6800 A EDTCDE(K) 10/22/10

6900 A CHECK(RB) 10/22/10

7000 A 79 DSPATR(PR) 10/22/10

7100 A 7 2'Amount Financed:' 10/22/10

7200 A XXUPBL 7Y 2B 7 22DSPATR(HI) 10/22/10

7300 A EDTCDE(K) 10/22/10

7400 A CHECK(RB) 10/22/10

7500 A 79 DSPATR(PR) 10/22/10

7600 A 7 35'Payments Made :' 10/22/10

7700 A XXPAYM 2A B 7 54DSPATR(HI) 10/22/10

7800 A CHECK(RZ) 10/22/10

7900 A DSPATR(UL) 10/22/10

8000 A 89 DSPATR(PR) 10/22/10

8100 A 71 DSPATR(PC) 10/22/10

8200 A* 10/22/10

8300 A XXSCHD 1A B 8 54DSPATR(HI) 10/22/10

8400 A VALUES('A' 'B') 10/22/10

8500 A DSPATR(UL) 10/22/10

8600 A 99 DSPATR(PR) 10/22/10

8700 A 8 2'Number of Payments:' 10/22/10

8800 A XXNOPY 3S 0B 8 26DSPATR(HI) 10/22/10

8900 A 79 DSPATR(PR) 10/22/10

9000 A DSPATR(UL) 10/22/10

9100 A* 10/22/10

5722SS1 V5R4M0 060210 Data Description PIPIQAP/ZP0001FM 10/26/10 9:14:24 Page 3

Data Description Source

SEQNBR *...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 Date

9200 A XXPERC 3Y 2O 8 64DSPATR(HI) 10/22/10

9300 A EDTCDE(3) 10/22/10

9400 A DSPATR(UL) 10/22/10

9500 A* 10/22/10

9600 A 9 2'Payment Amount:' 10/22/10

9700 A XXAMTP 7Y 2B 9 22DSPATR(HI) 10/22/10

9800 A EDTCDE(K) 10/22/10

9900 A CHECK(RB) 10/22/10

10000 A 79 DSPATR(PR) 10/22/10

10100 A* 10/22/10

10200 A 10 2'Payment Due Date:' 10/22/10

10300 A XXDUED 6Y 0B 10 22EDTCDE(Y) 10/22/10

10400 A DSPATR(HI) 10/22/10

10500 A 79 DSPATR(PR) 10/22/10

10600 A* 10/22/10

10700 A 12 2'Payment Method:' 10/22/10

10800 A XXMETH 1A B 12 22DSPATR(HI) 10/22/10

10900 A 79 DSPATR(PR) 10/22/10

11000 A VALUES('C' 'D' 'I') 10/22/10

11100 A 12 25'C=Credit Card' 10/22/10

11200 A 12 39'D=Debit' 10/22/10

11300 A 12 48'I=Inv.' 10/22/10

11400 A 13 27'(MMDDYY)' 10/22/10

11500 A DSPATR(UL) 10/22/10

11600 A 13 46'PAYLINK AMOUNTS' 10/22/10

11700 A DSPATR(UL) 10/22/10

11800 A 13 66'CANCEL AMOUNTS' 10/22/10

11900 A DSPATR(UL) 10/22/10

12000 A 14 2'Dt Scanned :' 10/22/10

12100 A XXSCND 6Y 0B 14 27EDTWRD(' / / ') 10/22/10

12200 A DSPATR(HI) 10/22/10

12300 A DSPATR(UL) 10/22/10

12400 A 80 DSPATR(PC) 10/22/10

12500 A FLDCSRPRG(XXTRND) 10/22/10

12600 A 14 40'Amt Financed:' 10/22/10

12700 A XXTAMT 7Y 2B 14 54DSPATR(HI) 10/22/10

12800 A EDTCDE(K) 10/22/10

12900 A CHECK(RB) 10/22/10

13000 A DSPATR(UL) 10/22/10

13100 A FLDCSRPRG(XXTFEE) 10/22/10

13200 A XXCAMT 7Y 2B 14 68DSPATR(HI) 10/22/10

13300 A EDTCDE(K) 10/22/10

13400 A CHECK(RB) 10/22/10

13500 A DSPATR(UL) 10/22/10

13600 A 89 DSPATR(PR) 10/22/10

13700 A FLDCSRPRG(XXCFEE) 10/22/10

13800 A 15 2'Dt Transferred :' 10/22/10

13900 A XXTRND 6Y 0B 15 27EDTWRD(' / / ') 10/22/10

14000 A DSPATR(HI) 10/22/10

14100 A DSPATR(UL) 10/22/10

14200 A 81 DSPATR(PC) 10/22/10

14300 A FLDCSRPRG(XXPAYD) 10/22/10

14400 A 15 41'PAYLINK Fee:' 10/22/10

14500 A XXTFEE 7Y 2B 15 54DSPATR(HI) 10/22/10

14600 A EDTCDE(K) 10/22/10

14700 A CHECK(RB) 10/22/10

14800 A FLDCSRPRG(XXTPIP) 10/22/10

14900 A DSPATR(UL) 10/22/10

15000 A XXCFEE 7Y 2B 15 68DSPATR(HI) 10/22/10

15100 A EDTCDE(K) 10/22/10

15200 A CHECK(RB) 10/22/10

15300 A 89 DSPATR(PR) 10/22/10

15400 A DSPATR(UL) 10/22/10

15500 A FLDCSRPRG(XXCPIP) 10/22/10

15600 A 17 2'Dt PIPI Paid by Paylink:' 10/22/10

15700 A XXPAYD 6Y 0B 17 29EDTWRD(' / / ') 10/22/10

15800 A DSPATR(HI) 10/22/10

15900 A DSPATR(UL) 10/22/10

16000 A 82 DSPATR(PC) 10/22/10

16100 A FLDCSRPRG(XXPAY) 10/22/10

16200 A 17 41'Dealer Cost:' 10/22/10

16300 A XXTPIP 7Y 2B 17 54DSPATR(HI) 10/22/10

16400 A EDTCDE(K) 10/22/10

16500 A CHECK(RB) 10/22/10

16600 A FLDCSRPRG(XXKBL) 10/22/10

16700 A DSPATR(UL) 10/22/10

16800 A XXCPIP 7Y 2B 17 68DSPATR(HI) 10/22/10

16900 A EDTCDE(K) 10/22/10

17000 A CHECK(RB) 10/22/10

17100 A 89 DSPATR(PR) 10/22/10

17200 A DSPATR(UL) 10/22/10

17300 A FLDCSRPRG(XXCKBL) 10/22/10

17400 A 18 2'Dt Dealer Paid by Paylink:' 10/22/10

17500 A XXPAY 6Y 0B 18 29EDTWRD(' / / ') 10/22/10

17600 A DSPATR(HI) 10/22/10

17700 A DSPATR(UL) 10/22/10

17800 A 83 DSPATR(PC) 10/22/10

17900 A FLDCSRPRG(XXPAYC) 10/22/10

18000 A 18 41'KBill' 10/22/10

18100 A 18 47'Cost' 10/22/10

18200 A 18 52':' 10/22/10

18300 A XXKBL 7Y 2B 18 54DSPATR(HI) 10/22/10

18400 A EDTCDE(K) 10/22/10

18500 A CHECK(RB) 10/22/10

18600 A FLDCSRPRG(XXTDLR) 10/22/10

18700 A DSPATR(UL) 10/22/10

18800 A XXCKBL 7Y 2B 18 68DSPATR(HI) 10/22/10

18900 A EDTCDE(K) 10/22/10

19000 A CHECK(RB) 10/22/10

19100 A 89 DSPATR(PR) 10/22/10

19200 A DSPATR(UL) 10/22/10

19300 A FLDCSRPRG(XXCDLR) 10/22/10

19400 A 19 2'Dt Can by Paylink :' 10/22/10

19500 A XXPAYC 6Y 0B 19 29EDTWRD(' / / ') 10/22/10

19600 A DSPATR(HI) 10/22/10

19700 A DSPATR(UL) 10/22/10

19800 A 86 DSPATR(PC) 10/22/10

19900 A 89 DSPATR(PR) 10/22/10

20000 A FLDCSRPRG(XXTAMT) 10/22/10

20100 A 19 41'Dealer Prof:' 10/22/10

20200 A XXTDLR 7Y 2B 19 54DSPATR(HI) 10/22/10

20300 A EDTCDE(K) 10/22/10

20400 A CHECK(RB) 10/22/10

20500 A DSPATR(UL) 10/22/10

20600 A FLDCSRPRG(XXCAMT) 10/22/10

20700 A XXCDLR 7Y 2B 19 68DSPATR(HI) 10/22/10

20800 A EDTCDE(K) 10/22/10

20900 A CHECK(RB) 10/22/10

21000 A 89 DSPATR(PR) 10/22/10

21100 A DSPATR(UL) 10/22/10

21200 A ERMSG 59A O 22 1DSPATR(HI) 10/22/10

21300 A N60 DSPATR(ND) 10/22/10

21400 A 93 COLOR(RED) 10/22/10

21500 A 12 57'Delinquent(Y/N)' 10/22/10

21600 A XXDELQ 1A B 12 74DSPATR(HI) 10/22/10

21700 A 78 DSPATR(PC) 10/22/10

21800 A* 93 10 37'Enter TO Update' 10/22/10

21900 A* COLOR(RED) 10/22/10

22000 A* 93 10 55'F10 To Not Update' 10/22/10

22100 A* COLOR(RED) 10/22/10

22600 A 8 35'Fee Schedule :' 10/22/10

22700 A 8 69'Earned' 10/22/10

22900 A R MSGSFL SFL 10/19/10

23000 A SFLMSGRCD(23) 10/25/10

23100 A ERR# SFLMSGKEY 10/19/10

23200 A ERRQUE SFLPGMQ 10/19/10

23400 A R MSGCTL SFLCTL(MSGSFL) 10/19/10

23500 A WINDOW(SFZIPW) 10/25/10

23600 A OVERLAY 10/19/10

23700 A 98 SFLDSP 10/25/10

23800 A SFLDSPCTL 10/19/10

23900 A 59 SFLINZ 10/19/10

24000 A 59 SFLEND 10/19/10

24100 A SFLSIZ(0002) 10/25/10

24200 A SFLPAG(0001) 10/25/10

24300 A ERRQUE SFLPGMQ 10/22/10

24500 A R S1SF SFL 07/19/10

24700 A SFSEQ 3S 0H 07/19/10

24800 A SFSEL 1A B 9 2 07/19/10

24900 A N31 DSPATR(HI) 07/19/10

25000 A N31 DSPATR(UL) 07/19/10

25100 A 31 DSPATR(PR) 07/19/10

25300 A SFCNMM 2A H 07/19/10

25400 A SFCNDD 2A H 07/19/10

25500 A SFCNYY 2A H 07/19/10

25600 A SFPCDM 1A H 07/19/10

25700 A SFSCND 8Y 0H 07/19/10

25800 A SFTRND 8Y 0H 07/19/10

25900 A SFAPRI 4A O 9 4 07/19/10

26000 A 32 COLOR(RED) 07/19/10

26100 A N31 DSPATR(HI) 07/19/10

26200 A SFASUB 3A O 9 9 07/19/10

26300 A N31 DSPATR(HI) 07/19/10

26400 A 32 COLOR(RED) 07/19/10

26500 A SFSTAT 1A H 07/19/10

26600 A*N31 DSPATR(HI) 04/07/10

26700 A* 32 COLOR(RED) 04/07/10

26800 A* 10/06/00

26900 A SFPCDS 5A O 9 15 07/19/10

27000 A N31 DSPATR(HI) 07/19/10

27100 A 32 COLOR(RED) 07/19/10

27200 A SFALT 2A O 9 22 07/19/10

27300 A N31 DSPATR(HI) 07/19/10

27400 A 32 COLOR(RED) 07/19/10

27500 A SFCONT 15A O 9 25 07/19/10

27600 A N31 DSPATR(HI) 07/19/10

27700 A 32 COLOR(RED) 07/19/10

27800 A SFLAST 20A O 9 43 07/19/10

27900 A N31 DSPATR(HI) 07/19/10

28000 A 32 COLOR(RED) 07/19/10

28100 A SFDELQ 1A O 9 66 07/19/10

28200 A N31 DSPATR(HI) 07/19/10

28300 A ISDATE 6Y 0O 9 71EDTWRD(' / / ') 07/19/10

28400 A N31 DSPATR(HI) 07/19/10

28600 A SFBIDT 6Y 0O 9 84EDTWRD(' / / ') 07/19/10

28700 A N31 DSPATR(HI) 07/19/10

28800 A SFCDAT 6Y 0O 9 95EDTWRD(' / / ') 07/19/10

28900 A N31 DSPATR(HI) 07/19/10

29000 A SFPAYD 6Y 0O 9108EDTWRD(' / / ') 07/19/10

29100 A N31 DSPATR(HI) 07/19/10

29200 A*

29300 A R S1 SFLCTL(S1SF) 07/19/10

29500 A SFLSIZ(0013) 07/19/10

29600 A SFLPAG(0012) 07/19/10

29700 A KEEP 07/19/10

29800 A OVERLAY 07/19/10

29900 A 25 SFLCLR 07/19/10

30000 A 26 SFLDSP 07/19/10

30100 A 27 SFLDSPCTL 07/19/10

30200 A CF03(03 'program exit key - F3') 07/19/10

30400 A 1 2'ZP0001' 07/19/10

30500 A USR 10A O 1 10 07/19/10

30600 A 1 40'PAYLINK INQUIRY' 07/19/10

30700 A TIME 4Y 0O 1 85EDTWRD(' : ') 07/19/10

30800 A 1 92DATE 07/19/10

30900 A EDTCDE(Y) 07/19/10

31000 A COLOR(GRN) 07/19/10

31100 A* ----- 10/06/00

31200 A 2 2'S1' 07/19/10

31300 A* ----- 10/06/00

31400 A* 3 2'Last Name:' 03/23/10

31500 A 3 2'last name:' 07/19/10

31600 A NAME 20A B 3 13 07/19/10

31700 A N61 DSPATR(HI) 07/19/10

31800 A N61 DSPATR(UL) 07/19/10

31900 A 61 DSPATR(PC) 07/19/10

32000 A 61 DSPATR(RI) 07/19/10

32100 A 3 37'Ctr#:' 07/19/10

32200 A PCM 15A B 3 43DSPATR(HI) 07/19/10

32300 A DSPATR(UL) 07/19/10

32400 A 3 60'Delq.(Y)' 07/19/10

32500 A DFDELI 1A B 3 70DSPATR(UL) 07/19/10

32600 A 3 73'Paid(Y)' 07/19/10

32700 A DFPAYI 1A B 3 82DSPATR(UL) 07/19/10

32800 A 3 86'Not Paid(Y)' 07/19/10

32900 A DFNPYI 1A B 3 99DSPATR(UL) 07/19/10

33000 A* ----- 10/06/00

33100 A LINE 75A O 5 2 07/19/10

33200 A 6 2'OPTION(' 07/19/10

33300 A 6 10'2=Edit ' 07/19/10

33400 A 6 19'7=Make Delinquent ' 07/19/10

33500 A 6 38'8=Remove Delinquent' 07/19/10

33600 A 6 58'9=Transfer)' 07/19/10

33700 A* ----- 10/06/00

33800 A 7 2'Op ' 07/19/10

33900 A* 7 11'P/C' 02/05/10

34000 A 7 22'Contract No.' 07/19/10

34100 A DSPATR(UL) 07/19/10

34200 A 7 65'Delq' 07/19/10

34300 A 7 84'Bill Date' 07/19/10

34400 A DSPATR(UL) 07/19/10

34500 A 7 95'Canc Date' 07/19/10

34600 A DSPATR(UL) 07/19/10

34700 A 8 64'(Y/N)' 07/19/10

34800 A DSPATR(UL) 07/19/10

34900 A 7 71'Eff. Date' 07/19/10

35000 A DSPATR(UL) 07/19/10

35100 A 7 43'Last Name' 07/19/10

35200 A DSPATR(UL) 07/19/10

35300 A 7 6'Dealer' 07/19/10

35400 A DSPATR(UL) 07/19/10

35500 A 7 15'Prod' 07/19/10

35600 A DSPATR(UL) 07/19/10

35700 A 7108'Pipi Paid Dt.' 07/19/10

35800 A DSPATR(UL) 07/19/10

35900 A R S1M

36000 A 23 2'F3=Exit, F10=Fold'

36100 A COLOR(BLU)

36200 A DSPATR(HI)

36300 A MSG3 70 24 2

36400 A COLOR(WHT)

36500 A DSPATR(HI)

36600 A*---------------------------------------------------------------- 10/26/10

36700 A R MSGSF1 SFL 10/26/10

36800 A SFLMSGRCD(25) 10/26/10

36900 A ERR# SFLMSGKEY 10/26/10

37000 A ERRQU1 SFLPGMQ 10/26/10

37100 A*---------------------------------------------------------------- 10/26/10

37200 A R MSGCT1 SFLCTL(MSGSF1) 10/26/10

37300 A* WINDOW(SFZIPW) 10/26/10

37400 A OVERLAY 10/26/10

37500 A 98 SFLDSP 10/26/10

37600 A SFLDSPCTL 10/26/10

37700 A 59 SFLINZ 10/26/10

37800 A 59 SFLEND 10/26/10

37900 A SFLSIZ(0002) 10/26/10

38000 A SFLPAG(0001) 10/26/10

38100 A ERRQU1 SFLPGMQ 10/26/10

38200 A*---------------------------------------------------------------- 10/26/10

* * * * * E N D O F S O U R C E * * * * *



Software/Hardware used:
ISERIES RPG400

Answer Wiki

Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Discuss This Question: 1  Reply

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • TomLiotta
    That is way too much code to look at without formatting. Please paste the code, then select the code and click the {code} button. In short, however, yes, you can have multiple message subfiles; but I'm not sure of a good way to use them in RPG/400. It'd be easier to imagine a use in ILE RPG where multiple procedures might reference the same DSPF. I suppose in RPG/400, you could share the DSPF between two or more programs and reference the different formats (and different program message queues) depending on which program was running at the time. Regardless, with readable code, something else might come to mind. Also, what error do you get? Actual message IDs are needed. Tom
    125,585 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following