IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

IDMS/DC-COBOL program - SNAP error while compiling


IBM Mainframe Forums -> IDMS/ADSO
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
rakeshsekar1987

New User


Joined: 13 Sep 2016
Posts: 3
Location: USA

PostPosted: Tue Sep 13, 2016 8:28 pm
Reply with quote

Code:
IGYPS2121-S   "SNAP" was not defined as a data-name.  The statement was discarded.

IGYPS2072-S   "FROM" was invalid.  Skipped to the next verb, period or procedure-name definition.


Could any one help in resolving this issue . I thought SNAP was inbuilt key word .

Cobol code :

Code:
 $CBAP-WORKING-STORAGE

 01  WS-BILL-MASK-TRNLT-TABLE.
     $CAMS-COPY ('BILL-MASK-TRNLT-TABLE')
     EJECT
 01  WS-SNAP-TITLE.
     05 WS-SNAP-HEADING                  PIC X(23)
                          VALUE '***CMRPMLS1***'.

0000-MAIN-LINE.
    MOVE 'LOAD-TABLE' TO WS-SNAP-HEADING
    SNAP FROM WS-SNAP-HEADING LENGTH 14.

Code'd for you..
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Tue Sep 13, 2016 8:53 pm
Reply with quote

The IGY prefix on the error messages indicates that COBOL is generating the messages. Either the code did not go through the IDMS precompiler or the code failed to be converted in the precompiler and went into the COBOL compile. SNAP is not a COBOL verb and hence the error messages.
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3048
Location: NYC,USA

PostPosted: Tue Sep 13, 2016 10:51 pm
Reply with quote

Welcome!!
Please make a use of code tags.
Quote:
I thought SNAP was inbuilt key word
Not for COBOL.
I echo Mr.Robert Sample. Please make sure you have IDMS precompiler step before pass to COBOL compiler.
Back to top
View user's profile Send private message
rakeshsekar1987

New User


Joined: 13 Sep 2016
Posts: 3
Location: USA

PostPosted: Mon Sep 19, 2016 6:45 pm
Reply with quote

Thanks for your response , I really do appropriate it . Since we using macro programming its not getting converted in appropriate per-compilation process .Is there any alternate solution to this to debug line by line without using a tool. I've tried debug process it takes to long to find the S0C4 data variable which is causing the abend . Any ideas or thought that might help ?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Mon Sep 19, 2016 7:54 pm
Reply with quote

unfortunately the last post does not make any sense, and seems unrelated to the original question
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3048
Location: NYC,USA

PostPosted: Mon Sep 19, 2016 8:12 pm
Reply with quote

The only way is you talk immediately to your site support.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IDMS/ADSO

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts Error to read log with rexx CLIST & REXX 11
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts Error when install DB2 DB2 2
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
Search our Forums:

Back to Top