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: 7931
Location: Bellevue, IA

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: 7931
Location: Bellevue, IA

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 How to update a portion of text in a ... Bill Woodger DFSORT/ICETOOL 25 Wed Nov 09, 2016 9:41 pm
No new posts sort with previous record anatol DFSORT/ICETOOL 9 Thu Oct 06, 2016 2:36 am
No new posts Get Record count in summary record fo... Atul Banke DFSORT/ICETOOL 21 Fri Sep 23, 2016 4:17 pm
No new posts Change date (DD/MM/YY) in 2nd record ... uday kiran DFSORT/ICETOOL 12 Wed Sep 07, 2016 10:57 pm
No new posts Using 'parm' to vary SORTOUT record v... Sysaron DFSORT/ICETOOL 13 Wed Sep 07, 2016 9:24 pm


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