Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to write string vertically

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
sb lathiya

New User


Joined: 04 Jul 2012
Posts: 2
Location: India

PostPosted: Sat Mar 02, 2013 3:42 pm    Post subject: How to write string vertically
Reply with quote

How can we display the string vertically in spool ? string length is 28 bytes.
eg. Input - my name is ethn matthew hunt

Output -
m
y

n
a
.
.
.
.
.
h
u
n
t
Back to top
View user's profile Send private message

enrico-sorichetti

Senior Member


Joined: 14 Mar 2007
Posts: 10626
Location: italy

PostPosted: Sat Mar 02, 2013 4:00 pm    Post subject: Reply to: How to write string vertically
Reply with quote

from Your profile ...
Skills: JCL,COBOL,DB2,VSAM,CICS,Xpeditor,Chngeman,fileaid,QMF

it is strange that with a set of skills like that You' d need to ask such a simple question.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7312

PostPosted: Sat Mar 02, 2013 4:37 pm    Post subject: Reply to: How to write string vertically
Reply with quote

You just DISPLAY/WRITE each byte, one-at-a-time.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6254
Location: Mumbai, India

PostPosted: Sun Mar 03, 2013 10:35 am    Post subject:
Reply with quote

There is no short-cut function of doing it in COBOL, AFAIK; you've to write a bit of code, as Bill has indicated to. Said that, have you tried something and it did not work?
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1161
Location: Vilnius, Lithuania

PostPosted: Sun Mar 03, 2013 6:05 pm    Post subject:
Reply with quote

Turn your screen 90 degrees.

Or your head.
Back to top
View user's profile Send private message
sb lathiya

New User


Joined: 04 Jul 2012
Posts: 2
Location: India

PostPosted: Sun Mar 03, 2013 8:20 pm    Post subject:
Reply with quote

@ Anuj , Bill : Thanks for reply

Apart from DISPLAY/WRITE ,Is there any other method we can do this???
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7312

PostPosted: Sun Mar 03, 2013 8:49 pm    Post subject: Reply to: How to write string vertically
Reply with quote

You want to see the output in the spool but you don't want to use WRITE or DISPLAY?

Other than going back to pre-Cobol II and using EXHIBIT, I don't know. Write and CALL an Assembler program? C/C++? FORTRAN? PL/I?

Why would you not want to use WRITE or DISPLAY?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


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

PostPosted: Sun Mar 03, 2013 8:51 pm    Post subject:
Reply with quote

Quote:
Apart from DISPLAY/WRITE ,Is there any other method we can do this???
What on earth do you want? COBOL allows you to WRITE to produce output to spool or a file, and DISPLAY to produce output to spool, and that is it -- there is no secret COBOL verb to output data a different way.

Topic locked since you have been given your answer, and you are not wanting the answer you were given.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    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 String to ASCII conversion JPLMARTINS COBOL Programming 4 Sun Sep 29, 2019 12:00 am
No new posts Convert string to packed format ajaydwivedi4u COBOL Programming 6 Sat Sep 21, 2019 5:01 pm
This topic is locked: you cannot edit posts or make replies. Need to write the date at the end of ... Poha Eater DFSORT/ICETOOL 16 Tue Jul 23, 2019 2:33 pm
No new posts Search string from concatenated input... srini24 JCL & VSAM 8 Sat Mar 30, 2019 9:51 pm
This topic is locked: you cannot edit posts or make replies. how to write a REXX to see whether da... javen777 CLIST & REXX 3 Wed Dec 19, 2018 11:36 am

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