× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Okay, I have defined a subfile, as follows:

 

     A                                      CA03

     A                                      CA09

     A                                      CA12

     A                                      DSPSIZ(24 80 *DS3)

     A          R RACCSF                    SFL

     A  54                                  SFLNXTCHG

     A            DLTSW          1A  I  6  3

     A            GFCNUM         5A  O  6  6

     A            GFCCOD         7N 0O  6 13

     A            CHDESC        35A  O  6 22

     A          R RACCSFC                   SFLCTL(RACCSF)

     A                                      OVERLAY

     A  51                                  SFLDSP

     A  52                                  SFLDSPCTL

     A  53                                  SFLCLR

     A  51                                  SFLEND(*MORE)

     A                                      SFLSIZ(4000)

     A                                      SFLPAG(0016)

     A                                      SFLCSRRRN(&ATRECORD)

     A            POSITIONAT     4S 0H      SFLRCDNBR

     A            RRN            4S 0H

     A            ATRECORD       5S 0H

     A                                  1 24'Potential Charge Codes to Add'

     A                                      DSPATR(RI) COLOR(WHT)

     A                                  2  1'Place an "X" next to any record
+

     A                                      to remove it from the list'

     A                                      DSPATR(UL) COLOR(PNK)

     A                                  3  3'X'           COLOR(WHT)

     A                                  3  6'Group'       COLOR(WHT)

     A                                  3 13'Code'        COLOR(WHT)

     A                                  3 22'Description' COLOR(WHT)

     A                                  4
3'__________________________________-

     A                                      ______________________'

     A          R FOOTER

     A                                 23  2'F3=EXIT  ENTER=PROCESS DELETES
+

     A                                      F9=ADD RECORDS TO GFEES
F12=CANCEL'

 

I populate the sub-file, no problem.  When I EXFMT the sub-file, it displays
on the screen beautifully.  But when Enter is pressed, I get an error (on
the statement line of the EXFMT opcode) as follows:

 

CPF5218 - Incorrect Record number in subfile SFLRCDNBR or SFLSIZ field.  

 

What gives?  

 

 

 

Tony Carolla

Programmer/Analyst

MedAmerica Billing Services, Inc.

(209)491-7710 x4316

carollat@xxxxxxxxxxxxxx <mailto:carollat@xxxxxxxxxxxxxx> 

 


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.