View previous topic :: View next topic
|
Author |
Message |
maheshajagtap Currently Banned New User
Joined: 10 Jun 2007 Posts: 6 Location: pune
|
|
|
|
Code: |
IDENTIFICATION DIVISION.
PROGRAM-ID. CLI.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO DD1.
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
SELECT OUTFILE ASSIGN TO DD2.
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
SELECT SORTWK ASSIGN TO DD3.
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD INFILE.
01 INREC.
02 S-NO PIC 99.
02 S-NAME PIC A(5).
02 S-MARK PIC 999.
02 FILLER PIC X(70).
FD OUTFILE.
01 OUTREC.
02 S-NO PIC 99.
02 S-NAME PIC A(5).
02 S-MARK PIC 999.
02 FILLER PIC X(70).
SD SORTWK.
01 SORTREC.
02 S-NOW PIC 99.
02 S-NAME PIC A(5).
02 FILLER PIC X(70).
PROCEDURE DIVISION.
MAIN.
SORT SORTWK ON ASCENDING KEY S-NOW
USING INFILE GIVING OUTFILE.
STOP RUN.
|
after compiling it gives maxcc = 0
but at runtime it gives s000.
what is problem ? .
it related with comelier option. |
|
Back to top |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006 Posts: 1436 Location: Bangalore,India
|
|
|
|
mahesh,
Post your spool messages for better understanding. |
|
Back to top |
|
|
vasanthkumarhb
Active User
Joined: 06 Sep 2007 Posts: 275 Location: Bang,iflex
|
|
|
|
Hi Mahesh,
Check for the proper message in the SYSLOG or analyse the message printed by the Program.
For Quick refference, check out the manual in this forum about abends. |
|
Back to top |
|
|
|