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
 
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 the sign only if the value is... useit DFSORT/ICETOOL 3 Wed Oct 04, 2017 5:53 pm
No new posts Binary to display characters Roy Ware SYNCSORT 3 Tue Sep 19, 2017 8:46 pm
No new posts DB2 NULL Values display V S Amarendra Reddy DB2 3 Thu Sep 07, 2017 6:59 pm
No new posts Suppress value reported by BREAK in D... Learncoholic DFSORT/ICETOOL 3 Wed Aug 16, 2017 6:03 pm
No new posts Display upon console bipinpeter COBOL Programming 1 Thu Jun 22, 2017 12:35 am

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