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
 
Equivalent of DISPLAY in COBOL or SAY in Rexx

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
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    Post subject: Equivalent of DISPLAY in COBOL or SAY in Rexx
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    Post subject: Equivalent of DISPLAY in COBOL or SAY in Rexx
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    Post subject: How to use WTO?
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: 757
Location: Germany

PostPosted: Wed Sep 13, 2006 1:47 pm    Post subject:
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    Post subject: Re: Equivalent of DISPLAY in COBOL or SAY in Rexx
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    Post subject: Re: Equivalent of DISPLAY in COBOL or SAY in Rexx
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: 757
Location: Germany

PostPosted: Thu Sep 14, 2006 4:33 pm    Post subject:
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    Post subject: Re: Equivalent of DISPLAY in COBOL or SAY in Rexx
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: 757
Location: Germany

PostPosted: Thu Sep 14, 2006 6:04 pm    Post subject:
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    Post subject: Re: Equivalent of DISPLAY in COBOL or SAY in Rexx
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    Post subject: Re: Equivalent of DISPLAY in COBOL or SAY in Rexx
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: 757
Location: Germany

PostPosted: Fri Sep 15, 2006 12:20 pm    Post subject: Re: Equivalent of DISPLAY in COBOL or SAY in Rexx
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    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IEW2456E error when link-editing a C ... Senthilraj JCL & VSAM 0 Fri Oct 13, 2017 3:12 pm
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
No new posts display the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm

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