COBOL on the AS/400 - Compile help

[tprice07]

I have managed to upload some legacy cobol code onto the iSeries, but I am struggling compiling it. Is anyone familiar with the below errors and how I might go about correcting them? Here are some of the common ones.

MSGID: LBL1030 SEVERITY: 30 SEQNBR: 002100
Message . . . . : 'SW1' invalid. Restarting at next Area A
reserved word or start of clause.
MSGID: LBL1326 SEVERITY: 30 SEQNBR: 043100
Message . . . . : 'SW2-OFF' not defined name. Default item
assumed.
MSGID: LBL1326 SEVERITY: 30 SEQNBR: 044500
Message . . . . : 'SW1-OFF' not defined name. Default item
assumed.

002000 SPECIAL-NAMES.
002100 SW1 ON IS SW1-ON, SW1 OFF IS SW1-OFF,
002200 SW2 ON IS SW2-ON, SW2 OFF IS SW2-OFF.

-------------------------------------------------------------------------------------------------

MSGID: LBL1092 SEVERITY: 30 SEQNBR: +000900
Message . . . . : 'TITLE' invalid in VALUE OF clause. Clause
ignored.

000600 FD ACT-ACCOUNT-FILE
000700 BLOCK CONTAINS 30 RECORDS
000800 RECORD CONTAINS 720 CHARACTERS
000900 VALUE OF TITLE IS ACTA-FILENAME.

-----------------------------------------------------------------------------------------

MSGID: LBL1092 SEVERITY: 30 SEQNBR: 004400
Message . . . . : 'TRUE' invalid in VALUE OF clause. Clause
ignored.

004400 VALUE OF USERBACKUPNAME IS TRUE

-----------------------------------------------------------------------------------------

MSGID: LBL1326 SEVERITY: 30 SEQNBR: 042100
Message . . . . : 'TODAYS-DATE' not defined name. Default item
assumed.

042100 ACCEPT CURR-DATE FROM TODAYS-DATE.

-----------------------------------------------------------------------------------------

MSGID: LBL1389 SEVERITY: 30 SEQNBR: 043100
Message . . . . : Conditional expression is not valid.
Statement ignored.

043100 IF SW2-OFF

-----------------------------------------------------------------------------------------

MSGID: LBL1447 SEVERITY: 30 SEQNBR: 043700
Message . . . . : Statement incomplete; last valid item found
before 'RELEASE'. Statement ignored.

043700 CLOSE CARD-FILE WITH RELEASE

-----------------------------------------------------------------------------------------

MSGID: LBL1447 SEVERITY: 30 SEQNBR: 064800
Message . . . . : Statement incomplete; last valid item found
before 'REMOVE'. Statement ignored.

064800 CLOSE PRINT-FILE WITH REMOVE.

-----------------------------------------------------------------------------------------

MSGID: LBL1325 SEVERITY: 30 SEQNBR: 066200
Message . . . . : 'CHANGE' invalid and ignored, processing
continues at next verb or procedure-name in Area A.

066200 CHANGE ATTRIBUTE TITLE OF CONFIG-FILE TO CONFIG-FILENAME.

-----------------------------------------------------------------------------------------

MSGID: LBL1326 SEVERITY: 30 SEQNBR: 066400
Message . . . . : 'ATTRIBUTE' not defined name. Default item
assumed.
MSGID: LBL1447 SEVERITY: 30 SEQNBR: 066400
Message . . . . : Statement incomplete; last valid item found
before 'RESIDENT'. Statement ignored.

066400 IF ATTRIBUTE RESIDENT OF CONFIG-FILE IS EQUAL TO VALUE TRUE

-----------------------------------------------------------------------------------------

[Terry Winchester]

Go here and search for the COBOL manuals:

http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp

For example, here are some switch definitions (within Special-Names) from the manual:

SPECIAL-NAMES.    
    SYSTEM-CONSOLE  IS  SYSTM 
    REQUESTOR  IS  WORK-STATION 
    C01  IS  NEXT-PAGE 
    LOCAL-DATA  IS  LOCAL-DATA-AREA 
    ATTRIBUTE-DATA  IS  ATTRB-DATA 
    SYSTEM-SHUTDOWN  IS  SHUTDOWN-SWITCH 
        ON  STATUS  IS  SHUTDOWN-PENDING 
    UPSI-0  IS  UPSI-SWITCH-0 
        ON  STATUS  IS  U0-ON 
        OFF  STATUS  IS  U0-OFF 
    UPSI-1  IS  UPSI-SWITCH-1 
        ON  STATUS  IS  U1-ON 
        OFF  STATUS  IS  U1-OFF 
    IBM-ASCII  IS  STANDARD-1 
    CURRENCY  SIGN  IS  "Y".

You should begin fixing your errors from the top to the bottom...

Terry