Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Is the following MOVE statement works without Error?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
ramvishwa
Warnings : 2

New User


Joined: 18 Dec 2006
Posts: 18
Location: bangalore

PostPosted: Fri Jan 05, 2007 5:29 pm    Post subject: Is the following MOVE statement works without Error?
Reply with quote

WORKING-STORAGE SECTION.
01 WS-LOGIN.
02 USER PIC X(8).
02 PASSWORD PIC X(8).

------------------
----------------------------
EXEC CICS
RECIEVE MAP('MAP1') MAPSET('SIS')
INTO (MAP1I)
END-EXEC.
PARA2.
MOVE USERNMI TO WS-LOGIN.
MOVE PASWDI TO WS-LOGIN

This "MOVE" statement is associated with cics-cobol.. Clear my doubt. CORRECT ME IF AM WRONG..
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Fri Jan 05, 2007 6:07 pm    Post subject: Re: IS THAT MY 'MOVE' STATEMENT WORKS OR NOT
Reply with quote

ramvishwa wrote:
Code:
WORKING-STORAGE SECTION.
            01 WS-LOGIN.
                 02 USER PIC X(8).       
                 02 PASSWORD PIC X(8).

        ------------------
           ----------------------------
             EXEC CICS
                   RECIEVE MAP('MAP1') MAPSET('SIS')
                   INTO (MAP1I)
             END-EXEC.
      PARA2.
             
MOVE USERNMI TO WS-LOGIN.
MOVE PASWDI TO WS-LOGIN

This "MOVE" statement is associated with cics-cobol.. Clear my doubt. CORRECT ME IF AM WRONG..
It would work better if you did this:
MOVE USERNMI TO USER OF WS-LOGIN.
MOVE PASWDI TO PASSWORD OF WS-LOGIN
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 0 Mon Sep 18, 2017 4:31 pm
No new posts Reply MQ open error Vignesh Sid COBOL Programming 5 Thu Sep 07, 2017 6:02 pm
No new posts Error in SQL-PLIST3 'Above value tru... rikdeb DB2 4 Wed Sep 06, 2017 1:34 pm
No new posts WER268A OUTREC STATEMENT : SYNTAX E... frozenblood87 SYNCSORT 12 Sat Aug 26, 2017 9:45 pm
No new posts Suppress value reported by BREAK in D... Learncoholic DFSORT/ICETOOL 3 Wed Aug 16, 2017 6:03 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us