I wrote the following routine which takes Identifier1,Identifier2,Identifier3 values as input and compares them with the values that are already been stored in a sequential file using an earlier routine.
Code: Select all
Common /StoreVal/ Initialize,LastValue,SeqFile,Flag1,Flag2,Flag3
Equate RoutineName To 'GetStoredValue'
Open "StoreFile" TO SeqFile Else
* Open failed. Create the sequence file.
Ans='UNABLE TO OPEN FILE'
End
* Attempt to read the named record from the file.
Readu LastValue From SeqFile, Identifier1 Then
If LastValue = 'N' Then
Flag1="YES"
End
Else
Flag1="NO"
End ; * End of first If Statement
Readu LastValue From SeqFile, Identifier2 Then
If LastValue = '0' Then
Flag2="YES"
End
Else
Flag2="NO"
End ; * End of Second If Statement
Readu LastValue From SeqFile, Identifier3 Then
If LastValue = '0' Then
Flag3="YES"
End
Else
Flag3="NO"
End ; * End of Third If Statement
If (Flag1 = 'YES' And Flag2 = 'YES' And Flag3 = 'YES') Then
Ans="YES"
End
Else
Ans="NO"
End ; * End of Final If Statement
Close SeqFile
End ; * End of the Routine
Code: Select all
Compiling: Source = 'DSU_BP/DSU.GetStoredValue', Object = 'DSU_BP.O/DSU.GetStoredValue'
****
0047
^
End of File unexpected, Was expecting: Array Name, Variable name,
New variable name, ';', Statement label, "ABORT", "ABORTE", "ABORTM",
"BEGIN", "BREAK", "CALL", "CHAIN", "CLEAR", "CLEARCOM" etc....
1 Errors detected, No Object Code Produced.