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
 

 

PGM=IGYCRCTL; I need record the letter Ñ

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Emmanuel Diaz

New User


Joined: 14 Feb 2009
Posts: 2
Location: PRODESIS

PostPosted: Wed Jun 17, 2009 5:12 am    Post subject: PGM=IGYCRCTL; I need record the letter Ñ
Reply with quote

Hi! I need to record the letter Ñ in a file; my compiler has the next lines:

//COB EXEC PGM=IGYCRCTL,COND=(4,LT,PC),
// PARM='RENT,DATA(31),XREF,MAP,NUMPROC(PFD),OPTIMIZE(FULL),
// DYNAM,TEST,APOST,OFFSET,LIB'

Can you help me? thanks.
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8119
Location: East Dubuque, Illinois, USA

PostPosted: Wed Jun 17, 2009 6:06 am    Post subject:
Reply with quote

Using FUNCTION NATIONAL-OF and CCSID 284 should give you what you want -- read the COBOL manuals (link at the top of the page) for the details of how to use this function.
Back to top
View user's profile Send private message
Emmanuel Diaz

New User


Joined: 14 Feb 2009
Posts: 2
Location: PRODESIS

PostPosted: Tue Dec 08, 2009 10:45 pm    Post subject: Robert, thanks
Reply with quote

My boss did this:

Code:
IF FIELD-Q = 'Ñ'
    MOVE 'µ' TO FIELD-Q-OUT
END-IF


File in TSO: (hex)

Code:
2009-04-01µ
FFFF6FF6FFA
20090040010

in file .txt

2009-04-01Ñ

OK, but............. i have another problem:

In my COBOL source:

Code:
IF  FIELD-X = 'Ñ'
     WRITE REG-OUT
END-IF

In compiled:

IF FIELD-X = ' ' (WHERE'S THE Ñ?)

My file IS EMPTY and FIELD-X has 'Ñ' (is a column of DB2 table and I see it in QMF)


Code:
//COB EXEC PGM=IGYCRCTL,COND=(4,LT,PC),
// PARM='RENT,DATA(31),XREF,MAP,NUMPROC(PFD),OPTIMIZE(FULL),
// DYNAM,TEST,APOST,OFFSET,LIB'


Can you help me? THANKS
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8119
Location: East Dubuque, Illinois, USA

PostPosted: Tue Dec 08, 2009 11:04 pm    Post subject:
Reply with quote

1. Posting this is completely useless:
Quote:
//COB EXEC PGM=IGYCRCTL,COND=(4,LT,PC),
// PARM='RENT,DATA(31),XREF,MAP,NUMPROC(PFD),OPTIMIZE(FULL),
// DYNAM,TEST,APOST,OFFSET,LIB'
since we didn't ask to see the compile options.

2. Did you read up on NATIONAL-OF and CCSID as previously requested? You may be able to put a character into COBOL using your emulator, but the character you put in the IF statement may not be the character you think it is. You would need to look at the hex value of the compiler output to see how the character was handled. And it may not match the input file character, either.

And learn to use BBcode for code and hex -- it at least is not a proportional font!
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Need to write record of PS File in ex... Chandan1993 JCL & VSAM 1 Wed Jun 07, 2017 1:35 am
No new posts Adding big TEXT lines to each record ... bshkris SYNCSORT 4 Sat May 06, 2017 1:40 am
This topic is locked: you cannot edit posts or make replies. Merge two files and update Trailer re... Yashashri JCL & VSAM 1 Thu May 04, 2017 12:54 pm
No new posts Sort Large record length cmsmoon DFSORT/ICETOOL 14 Tue Apr 11, 2017 5:49 pm
No new posts Format record to remove Leading zeroes Learncoholic DFSORT/ICETOOL 14 Wed Apr 05, 2017 2:43 pm


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