Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to display America instead of AMERICA

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
jackal
Currently Banned

New User


Joined: 21 Jan 2006
Posts: 48
Location: india

PostPosted: Thu Oct 18, 2007 10:14 am    Post subject: How to display America instead of AMERICA
Reply with quote

Hello All,
I want to display America instead of AMERICA, could u let me know this
Back to top
View user's profile Send private message

nuthan

Active User


Joined: 26 Sep 2005
Posts: 146
Location: Bangalore

PostPosted: Thu Oct 18, 2007 10:25 am    Post subject:
Reply with quote

INSPECT variable1 CONVERTING 'abcd....xyz' TO 'ABCD....XYZ'
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Thu Oct 18, 2007 10:49 am    Post subject: Reply to: Reference Modif
Reply with quote

Check this link too

http://ibmmainframes.com/about1856.html
Back to top
View user's profile Send private message
shankar.v

Active User


Joined: 25 Jun 2007
Posts: 196
Location: Bangalore

PostPosted: Thu Oct 18, 2007 12:50 pm    Post subject:
Reply with quote

jackal,

Please check with the following code for your requirement.
Code:
       IDENTIFICATION DIVISION.                             
       PROGRAM-ID. B.                                       
       DATA DIVISION.                                       
       WORKING-STORAGE SECTION.                             
       77 WS-IN PIC X(80) VALUE SPACES.                     
       77 WS-OUT PIC X(80) VALUE SPACES.                   
       PROCEDURE DIVISION.                                 
           ACCEPT WS-IN                                     
           DISPLAY 'WS-IN  ==> ' WS-IN                     
           MOVE WS-IN(1:1) TO WS-OUT.                       
           MOVE FUNCTION LOWER-CASE(WS-IN(2:)) TO WS-OUT(2:)
           DISPLAY 'WS-OUT ==> ' WS-OUT                     
           GOBACK.

Input:
Code:
AMERICA

Output:
Code:
WS-IN  ==> AMERICA
WS-OUT ==> America
Back to top
View user's profile Send private message
shankar.v

Active User


Joined: 25 Jun 2007
Posts: 196
Location: Bangalore

PostPosted: Thu Oct 18, 2007 12:57 pm    Post subject:
Reply with quote

jackal,

Please check with the following sort jcl for your requirement
Code:
// EXEC PGM=SORT                   
//SORTIN DD *                     
AMERICA                           
/*                                 
//SORTOUT DD SYSOUT=*             
//SYSOUT DD SYSOUT=*               
//SYSIN DD *                       
 OPTION COPY                       
 INREC OVERLAY=(2:2,79,TRAN=(UTOL))
/*
//

Output:
Code:
America
Back to top
View user's profile Send private message
HARLEEN SINGH MANN
Warnings : 2

New User


Joined: 03 Aug 2007
Posts: 17
Location: Pune

PostPosted: Fri Oct 19, 2007 11:06 pm    Post subject:
Reply with quote

A simpler way to do this withour using "move function lower-case" is to
use CAPS OFF on the command line of the editor and move that string to ww-<output variable> and dispaly it.

ie. MOVE 'america' TO WW-1
DISPLAY WW-1
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 Display ZEDLMSG without Pressing F1 &... anandgbe CLIST & REXX 8 Thu Dec 15, 2016 4:20 pm
No new posts How to display value of an exit param... lind sh CICS 2 Sun Oct 09, 2016 12:28 pm
This topic is locked: you cannot edit posts or make replies. DSList (3.4) cannot display Chinese c... jacobdng TSO/ISPF 4 Wed Oct 05, 2016 2:51 pm
This topic is locked: you cannot edit posts or make replies. Get and display content of an address... lind sh CICS 1 Mon Aug 08, 2016 9:18 am
No new posts How to display data in separate lines... salilnigam1970 DFSORT/ICETOOL 2 Tue Jan 26, 2016 9:49 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us