Search results for query: *

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.

...INVALID KEY MOVE "E" TO END-OF-FILE DISPLAY MESSAGE 'INVALID KEY' cnty-loc-stat * NOT INVALID KEY * PERFORM C000-CHECK end-read IF CL-FILE =...

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.

...03 SR-ID PIC X(09). 03 SR-OCCURS PIC 9(02). WORKING-STORAGE SECTION. * 01 NEW-HHMF-CNT PIC 9(06) VALUE ZERO. 01 NEW-MEM-CNT PIC 9(06) VALUE ZERO. 01 NEW-CNT...

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

iT DID NOT REWRITE THE RECORD.

tHANKS, THAT WORKED, BUT IT DID NOT CATCH THE FIRST DUPLICATE SSN#. DID I MISS SOMETHING?

i HAVE BOTH HM-SSN AND HM-SSN-2, HM-SSN-2 IS A SHORTER VERSION OF HM-SSN, I JUST DECIDED TO MOVE THE DATA INTO THE NWMAST-DATA-2 WORKING STORAGE FILE INSTEAD OF THE NEWMAST-DATA. tHE SR-OCCURS IS WHAT YOU HAD ME PUT IN, I JUST CALLED IT SR-OCCURS INSTEAD OF SORT-OCCURS.

I TRIED THE PERFORM VARYING STATEMENT AND IT GIVES ME AN ERROR OF SUBSCRIPT OUT OF RANGE ON THE HM-SSN-2 (SR-OCCURS) = SPACES POINT. PERFORM VARYING SR-OCCURS FROM 1 BY 1 UNTIL HM-SSN-2(SR-OCCURS) = SPACES OR SR-OCCURS > 23...

i AM STILL GETTING THE SAME ERROR IN THE SAME SECTION. iT DOES NOT LIKE THE HM-SSN(SR-OCCURS). C103-SSN. DISPLAY 'IN C103-HELP'. DISPLAY 'HM-SSN=' HM-SSN(SR-OCCURS) MOVE HM-SSN(SR-OCCURS) TO ER-ORG-SSN. COMPUTE B-IDX = B-IDX + 1...