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
 
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: 8165
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: 8165
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 Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts Repeat part of record multiple times Learncoholic DFSORT/ICETOOL 4 Tue Aug 29, 2017 11:33 am
No new posts Read two inputs and write into output... murali.andaluri DFSORT/ICETOOL 6 Wed Jul 26, 2017 7:35 pm
No new posts Need to write record of PS File in ex... Chandan1993 JCL & VSAM 1 Wed Jun 07, 2017 1:35 am

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