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

Equivalent of DISPLAY in COBOL or SAY in Rexx


IBM Mainframe Forums -> PL/I & Assembler
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Sahoo

New User


Joined: 08 Jun 2006
Posts: 53

PostPosted: Sun Aug 27, 2006 12:26 pm
Reply with quote

Hi
What is the equivalent keyword of DISPLAY as in CObol and Say as in Rexx , in Assembler ?
Back to top
View user's profile Send private message
raghunathns

Active User


Joined: 08 Dec 2005
Posts: 127
Location: rochester

PostPosted: Tue Aug 29, 2006 4:03 am
Reply with quote

WTO
Back to top
View user's profile Send private message
gokuldass

New User


Joined: 18 Mar 2005
Posts: 48
Location: india

PostPosted: Tue Sep 12, 2006 11:11 am
Reply with quote

Hi,

How to use WTO to display the contents of register while on runtime.

REgards,
Gokuldass
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Wed Sep 13, 2006 1:47 pm
Reply with quote

Hi there !

First you have to convert the contents of the Register in a working Field.
So that you can Print ore Read it in Charakter Format.

Then move this field to the specific Point in your WTO-Command, starting at WTO+8Bytes.

MVC WTOCMD01+xx(YY),Field
WTOCMD01 WTO 'THIS IS REGISTER-03 xxxxxxx'

Hope that helps, UmeySan
Back to top
View user's profile Send private message
gokuldass

New User


Joined: 18 Mar 2005
Posts: 48
Location: india

PostPosted: Wed Sep 13, 2006 5:21 pm
Reply with quote

Hi,

Thanks a lot..

I have one more doubt....

To use WTO any special library needs to be added ?

regards,
Gokuldass
Back to top
View user's profile Send private message
futuredba

New User


Joined: 08 Jan 2006
Posts: 22
Location: Delhi

PostPosted: Thu Sep 14, 2006 11:59 am
Reply with quote

Hi UmeySan,

The program is running error free but the expected string is not displayed anywhere..

Could u add something to it?

thanks
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Thu Sep 14, 2006 4:33 pm
Reply with quote

Hi !

@ futuredba
I think you forgot to convert the content of the register to dezimal and unpack it to charakter. Use CVD and UNPK first. Then move it into the WTO.

@ gokuldass
Normaly the WTO is in SYS1.MACLIB, so there's no need.
Check your mac-libs.

Regards, UmeySan
Back to top
View user's profile Send private message
futuredba

New User


Joined: 08 Jan 2006
Posts: 22
Location: Delhi

PostPosted: Thu Sep 14, 2006 5:10 pm
Reply with quote

Hi UmeySan,

I was changing the content of reg to char value. then also it isnt displaying at my console. however the program is running error free.

I guess i m missing a DD stmt. The DD stmts i m using in my jcl are SYSLOUT DD SYSOUT=*
SYSPRINT DD SYSOUT=*
SYSOUT DD SYSOUT=*
SYSUDUMP DD SYSOUT=*

Do i need to add any more dd stmt????

Thanks in advance...
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Thu Sep 14, 2006 6:04 pm
Reply with quote

Hi !

@ futuredba

When your Job is on SDSF OutputQueue, please have a look at JESMSGLG.
WTO means WriteToOperator. It's not written to Sysout. It's written to Console. You can specify a RoutCode for routing the message to a specific OperatorConsole. Ask your SystemProgrammer for RouteCodeNumber. But That's normaly not needed. Normaly you only want to see a Message from your Programm during RunTime, that gives you Information about what's going on.

In some Systems you can use RouteCode=11 tu issue an WriteToProgrammer with the WTO command. In this case you can see the Messages under JESJCL in SDSF.

Regards, UmeySan
Back to top
View user's profile Send private message
futuredba

New User


Joined: 08 Jan 2006
Posts: 22
Location: Delhi

PostPosted: Thu Sep 14, 2006 6:10 pm
Reply with quote

Hi UmeySan,

Ya, u are right... I was not knowing tht messages were printed at JESMSGLG...

Thanx a lot!!
Back to top
View user's profile Send private message
gokuldass

New User


Joined: 18 Mar 2005
Posts: 48
Location: india

PostPosted: Fri Sep 15, 2006 10:42 am
Reply with quote

Hi Guys,

Any of you know pc370 simulator version of Assembler? If yes, plz anyone help me on how to see the console / spool message just like in mainframe assembler..

I tried wto to print the register content.. but I could get the value at run time..

:-)

Regards,
Gokul
Back to top
View user's profile Send private message
UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 771
Location: Germany

PostPosted: Fri Sep 15, 2006 12:20 pm
Reply with quote

Hi !

If you are using a simulator software like MicroFokusWorkbench you coud do that in interaktive trace.

Regards, UmeySan
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 -> PL/I & Assembler

 


Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts Running REXX through JOB CLIST & REXX 13
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 isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
Search our Forums:

Back to Top