Quote:
Originally Posted by
jim mcnamara
If you cannot tell what language, may I suggest you do some reading AFTER we tell you the language name. You need to learn at least something about how to program the language first, before you try to make changes. Otherwise you have a great probability of making a hash of the program. If you can post a sample - say 10 lines of code from somewhere a few dozen lines down from the top, there has to be someboy here who can help.
Thank you for your reply Jim; I had the same problem on an AS400 machine. I had to identify the language (Cobol in that case) and buy a couple of good programming books to learn it.
Sample of the language:
DEFINE AT_POSITION FLOAT*8 = INDEX(FIELDTEXT,"@")
DEFINE LNGTH FLOAT*8 = SIZE(FIELDTEXT)
;--- Chequeprint File - Primary file
DEF CHEQUEPRINT_ENTITY CHAR*12 = USER_ENTITY &
IF RETURN_MULTIENTITY[1:1] = "Y" ELSE DEFAULT_ENTITY
FILE CHEQUEPRINT PRIMARY
ITEM ENTITY_CODE INITIAL CHEQUEPRINT_ENTITY
ITEM MULTIENTITY_FLAG INITIAL RETURN_MULTIENTITY[1:1]
DEFINE NET_AMOUNT FLOAT*8 = INVOICEAMNT OF CHEQUEPRINT &
- DISCOUNT_AMNT OF CHEQUEPRINT &
IF CHEQUEDATE OF CHEQUEPRINT <= DISCOUNT_DATE OF CHEQUEPRINT AND &