|
midrange.com
Here is the whole tamale:
C/Free
IF #$FY > 50;
FYKEY = 1900 + #$FY;
ELSE;
FYKEY = 2000 + #$FY;
ENDIF;
CHAIN FYKEY FPCS101;
IF %FOUND;
Count# = 1;
dow Count# <= 5;
if COCrt(count#) <> *blanks;
if COPOSN = Count#;
Chain Crt(count#) PPCS120;
If %found;
Sht(count#) = PDSHRT;
lng(count#) = PDDESC;
ENDIF;
else;
Chain (count# : Crt(count#)) PPCS105;
If %found;
sht(count#) = CCSHRT;
lng(count#) = CCDESC;
ENDIF;
ENDIF;
Endif;
Count# = Count# + 1;
ENDDO;
ENDIF;
/End-Free
I don't see anywhere that I missed a closing ";" or paren or whatever
but these eyes have just about had it today.....
Pete Scott Klement wrote:
284 Chain (count# : Crt(count#)) PPCS105; ======> a b ccc *RNF5309 30 a 002626 Factor 1 operand is not valid. *RNF5031 20 b 002626 Result-Field operand is not valid. *RNF5507 30 c 002626 A semi-colon is not specified at the end of a free-specification.What does the statement BEFORE this one look like. Does it have a semi-colon at the end?
As an Amazon Associate we earn from qualifying purchases.
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.
