|
View previous topic :: View next topic
|
| Author |
Message |
Sasi Kiran Patha
Warnings : 2
New User
Joined: 19 Nov 2006
Posts: 73
Location: Hyederabad
|
|
|
|
Suppose we populate part of Record Key and use a START, Can we expect a file status '00' under any circumstance.
VS COBOL does not allow >=. Please suggest
Regards,
Sasi Patha. |
|
| Back to top |
|
 |
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
Yes, an FS 00 is possible.
Wrong, greater or equal is allowed. |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| Sasi Kiran Patha wrote: |
VS COBOL doesnot allow >= with START, for a VSAM file.
On Populating part of record key and use just = gives file status '23',
record not found. Please suggest. |
Wrong, greater or equal is allowed.
There is no record available that matches the key given. |
|
| Back to top |
|
|
Sasi Kiran Patha
Warnings : 2
New User
Joined: 19 Nov 2006
Posts: 73
Location: Hyederabad
|
|
|
|
Please let me know the syntax for >= in START command.
Regards,
Sasi Patha. |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| Sasi Kiran Patha wrote: |
| Please let me know the syntax for >= in START command. |
Did you look here: 3.33 START Statement ? |
|
| Back to top |
|
|
Sasi Kiran Patha
Warnings : 2
New User
Joined: 19 Nov 2006
Posts: 73
Location: Hyederabad
|
|
|
|
Sorry, for some reasons "GREATER THAN OR EQUAL TO" did not compile.
The compiler reported error : "Expected new statement found OR , skipped to next verb or sentence."
im not sure of the reason.
Regards,
Sasi Patha. |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
| Sounds like some sort of syntax error, cut and paste your start statement (and the select and FD). |
|
| Back to top |
|
|
Sasi Kiran Patha
Warnings : 2
New User
Joined: 19 Nov 2006
Posts: 73
Location: Hyederabad
|
|
|
|
SELECT AP-ZB-EXTRACT-FILE ASSIGN TO VSAMG-APZBIN
ACCESS MODE IS DYNAMIC
ORGANIZATION IS INDEXED
RECORD KEY IS AP-ZB-KEY
ALTERNATE RECORD KEY IS AP-ZB-CUST-ID OF AP-ZB-KEY
WITH DUPLICATES
ALTERNATE RECORD KEY IS AP-ZB-NM1-SS OF AP-ZB-KEY
WITH DUPLICATES
ALTERNATE RECORD KEY IS AP-ZB-NM2-SS OF AP-ZB-EXTRACT-REC
WITH DUPLICATES
FILE STATUS IS AP-ZB-FILE-STATUS.
FD AP-ZB-EXTRACT-FILE
LABEL RECORDS ARE STANDARD
DATA RECORD IS AP-ZB-EXTRACT-REC.
01 AP-ZB-EXTRACT-REC.
05 AP-ZB-KEY.
10 AP-ZB-CUST-ID PIC X(10).
10 AP-ZB-NM1-SS PIC X(09).
10 AP-ZB-COMP-CODE PIC X(03).
10 AP-ZB-OFF-NUM PIC X(06).
10 AP-ZB-CONTRACT-NUM.
15 AP-ZB-ACCT-NUM PIC X(06).
15 AP-ZB-CYCLE-DT PIC X(02).
05 FILLER PIC X(35).
05 AP-ZB-NM2-SS PIC X(09).
START AP-ZB-EXTRACT-FILE
KEY GREATER THAN OR EQUAL TO AP-ZB-KEY.
Compile Error :
IKF4003I-E EXPECTING NEW STATEMENT. FOUND OR . DELETING TILL NEXT VERB OR PROCEDURE-NAME.
Regards,
Sasi Patha. |
|
| Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
Kinda sounds like an even older version of VS COBOL than I have a manual for....
I'd think that with a partial key less than where you want to start and a start key greater clause, you should get you just where want to be. |
|
| Back to top |
|
|
DavidatK
Active Member
Joined: 22 Nov 2005
Posts: 700
Location: Troy, Michigan USA
|
|
|
|
| What version of COBOL are you compiling with? |
|
| Back to top |
|
|
Sasi Kiran Patha
Warnings : 2
New User
Joined: 19 Nov 2006
Posts: 73
Location: Hyederabad
|
|
|
|
Hi,
please Let me know how do we know the version of COBOL we are working on.
I looked in F-->3-->1--> option A for the program and mentioned the Load Library, just "VS COBOL" is displayed.
Regards,
Sasi Patha. |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hello,
Look near the top of the first page of your compilation listing. You should see something that looks like
| Quote: |
| PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.4.1 |
When you find the info, please post it in this thread. |
|
| Back to top |
|
|
Phrzby Phil
Senior Member
Joined: 31 Oct 2006
Posts: 1050
Location: Richmond, Virginia
|
|
|
|
| Does NOT < work? |
|
| Back to top |
|
|
|
|
