Recent content by D2BEA

This is the screen code. CS-HHINFO-CS1-county-EF-ADD-Aft-Procedure. PERFORM COUNTY-CHECK. COUNTY-CHECK. IF HMFN-COUNTY > SPACE move spaces to cl-file, cnty-found MOVE 'COUNTY.TBL ' TO CL-FILE CALL "CNTY-LOC2" USING...

Yes, I used exit program and it does go back to the program calling it. Yes, it is finding the county codes Yes, I have testied for invalid-it goes through what seems a loop, like it tests it and states invalid code on the screen, and then it goes to the users screen code field and highlights...

It will bring it back to the user field on the screen, but it freezes at that point.

Now when it comes bake to the user screen it freezes. Program 1 IF HMFN-COUNTY > SPACE MOVE 'COUNTY.TBL ' TO CL-FILE CALL "CNTY-LOC2" USING HMFN-COUNTY, CNTY-FOUND, HMFN-LOCATION, LOC-FOUND. CANCEL...

Yes, at end is not acdeptable according to the compiler. But I am still getting a freeze on the program-I do not know why?

I keep getting wrun32 errors (iam using acubench).

DOESN'T A RELATIVE FILE USE "INVALID AND NOT INVALID" INSTEAD OF AT END?

It is not finding the code the user enters. I put in display and it is reading the tables. I am trying to take what the User enters and check that against a table for verification.

I am having problems reading and verifying-what am I doing wrong. one program. PROCEDURE DIVISION using HMFN-COUNTY, HMFN-LOCATION, CNTY-LOC-TABLE, CNTY-LOC-NAME. A000-BEGIN. MOVE SPACES TO countys...

I WANT TO THANK ALL OF YOU THAT HELPED ME. I REALLY APPRECIATE IT. Thank you!

Okay, I ran the program with different variations searching on: '999999999' and got 1281 '123456789' and got 13 on all ssn with a count of all '999999999' got 1280 on all ssn with a count of all '123456789' got 12 on all ssn's without specifiying a certain ssn and apprently it does not include...

iT IS NOT CATCHING ALL THE DUPLICATE SSN#'S- EXAMPLE I HAVE 20 '123456789' SSN'S BUT ONLY A FEW ARE FOUND.

tHEY ARE JUST FOR ME-HOW MANY RECORDS WERE READ.

Here is the code. FD NEW-HHMF-FILE LABEL RECORDS IS STANDARD VALUE OF FILE-ID IS '\FDPSYS\TABLES\DATA\NEWHMFI.DAT'. 01 NEW-HHMF-REC. 03 NEW-HHMF-KEY PIC X(09). 03 FILLER PIC X(2039). FD ERROR-FILE LABEL RECORDS IS...

aCUTALLY IT DID NOT CATCH ALL THE DUPLICATES. examples: I have 3 duplicate ssn# with all 4's I have 20 duplicate ssn#'s with 123456789