INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

Encountered a problem with the SEND MAP command.

Encountered a problem with the SEND MAP command.

(OP)
Hi,

I am converting a OS/VS CICS cobol program to enterprise cobol. This program reads a database and sends the output to both the screen and a printer.

There is a 'EXEC CICS SEND MAP' command as follows used to send the details to screen.

EXEC CICS SEND
MAP ('PCXEI01')
MAPSET ('PCXEI00')
SET (ADDRESS OF RET-PAGE)
END-EXEC.


After this, I expect the address of the mapset PCXEI00 to get stored in the variable RET-PAGE. I defined the map PCXEI01 in working storage. But, CICS returns an invalid address to RET-PAGE variable after these statements. Actually it prefixes the valid address X'00110588' like 'D4110588'. The prefixed 'D4' makes the address invalid. I found this by debugging the code.

The program is designed to take the address of the mapset from RET-PAGE and send it to the printer. I am trying to fix this but need some help.

Can anyone give some info on this?

RE: Encountered a problem with the SEND MAP command.

Sounds like you've got a 24-bit address. Check to see if you are linking your program AMODE(31) AND RMODE(ANY). While you are at it, check the CICS program and transaction definitions at the same time. The last two won't fix the addressing problem, but they will allow to to get storage from above the line when you have...

Steve

"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object::PerlDesignPatterns)

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members!

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close