IBM Mainframe Forum

I am using the SCAN statement to find a value within a 1000 Byte record. For example:

(#INPUT-FILE is 1000 byte record)

IF #INPUT-FILE = SCAN '12LTU3'
ADD +1 TO #COUNTER
WRITE(1) #TR-DATE ' ' #TR-ACCTNO ' ' #TR-ACCTNAME
END-IF

WRITE(1) 'TOTAL RECORDS FOUND' #COUNTER

My question is... is there a way to write out the position spot where the record was found? Say it found '12LTU3' in position 152 of 1000. The program would write out 152.

Thank you in advance.

SCAN is simply an option of the IF statement, rather than a System Function. All it can do is answer the question "Does the string exist in the source variable?"

The EXAMINE statement can do what you need.

And here is the result:

Off topic: The blanks in your WRITE statement could be confusing. Natural automatically inserts a space between items in the list, so you were separating your variables by 3 (space-' '-space-#TR-ACCTNO). If that was intended, try

This worked perfect. Thank you