MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Changing to HEX value in a file

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL)
View previous topic :: View next topic  
Author Message
schintala
Beginner


Joined: 18 May 2005
Posts: 108
Topics: 31
Location: USA

PostPosted: Mon Jun 06, 2005 10:21 am    Post subject: Changing to HEX value in a file Reply with quote

Hi,
Could you please me out in correcting the syntax in changing the value to HEX value.
Code:

/SYSDUMP   DD  DUMMY                                       
/SYSPRINT  DD  SYSOUT=*                                   
/DISK1     DD  DSN=MH.DB.ISCAS01.SYSREC00,DISP=(MOD,KEEP) 
/DISK2     DD  DSN=MH.DB.ISRC101.SYSREC01,                 
/          DISP=(NEW,CATLG,DELETE),                       
/          DCB=(LRECL=522,BLKSIZE=29754,RECFM=FB),         
/          SPACE=(CYL,(1000,5),RLSE),UNIT=SYSDA           
/SYSIN     DD *                                           
    PROCESS(DISK1)                                         
    MOVE(1,491,TO,1,491)                                   
    MOVE(492,518,TO,496,522)                               
    CHANGE(492,1,X,'00')                                   
    COPY(DISK2)                                           
    END(PROCESS)                                           
/*                                                         

Received the below error during JCL run.
Code:

        PROCESS(DISK1)                                                 
        MOVE(1,491,TO,1,491)                                           
        MOVE(492,518,TO,496,522)                                       
        CHANGE(492,1,X,'00')                                           
00021 - FMU6CV05-020:  INITIAL VALUE FOR HEXADECIMAL FIELD CONTAINS INVA
00023 - FMU6CV05-010:  INITIAL VALUE FOR HEXADECIMAL FIELD EXCEEDS LENGT
00023 - FMU6COMP-910:  ALL INPUT IGNORED UNTIL NEXT RIGHT PARENTHESIS   
        COPY(DISK2)                                                     
        END(PROCESS)
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Mon Jun 06, 2005 10:35 am    Post subject: Reply with quote

Schintala,


Please post detailed information on what you're trying to accomplish. Do not make people guess what you mean. This will give you a much better chance of getting a good answer to your question.

For starters you did not provide the PGM/utility you are trying to run. I cannot just guess looking at the control cards.

Post the DCB characterstics of the input and output files along with a sample of input and output data. May be we can suggest an alternate way of accomplishing the task.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
schintala
Beginner


Joined: 18 May 2005
Posts: 108
Topics: 31
Location: USA

PostPosted: Mon Jun 06, 2005 10:52 am    Post subject: Reply with quote

Hi, Thank you for the comments. Anyway I figured out the probelm here. I was just using the single quotes in the SYSIN CHANGE key word which I shouldn't use. It should be like this.

//SYSIN DD *
PROCESS(DISK1)
MOVE(1,491,TO,1,491)
MOVE(492,518,TO,496,522)
CHANGE(492,1,X,00)
CHANGE(493,1,X,6F)
CHANGE(494,1,X,00)
CHANGE(495,1,X,6F)
COPY(DISK2)
END(PROCESS)
/*

PS: I am just giving this info for other viewers only.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Mon Jun 06, 2005 12:43 pm    Post subject: Reply with quote

schintala,

I hope you don't mind telling us about the PGM/utility you are running the above mentioned control cards.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
schintala
Beginner


Joined: 18 May 2005
Posts: 108
Topics: 31
Location: USA

PostPosted: Mon Jun 06, 2005 2:11 pm    Post subject: Reply with quote

You can use FILEMAIN utility to perform these kind of things through JCL.

//STEP1 EXEC FILEMAIN
//SYSOUT DD SYSOUT=*
//SYSDUMP DD DUMMY
//SYSPRINT DD SYSOUT=*
//DISK1 DD DSN=MH.DB.ISCAS01.SYSREC00,DISP=(MOD,KEEP)
//DISK2 DD DSN=MH.DB.ISCAS01.SYSREC01,
// DISP=(NEW,CATLG,DELETE),
// DCB=(LRECL=522,BLKSIZE=29754,RECFM=FB),
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

PostPosted: Mon Jun 06, 2005 2:14 pm    Post subject: Reply with quote

schintala,

hmm you are excueting a proc name FILEMAIN. The pgm/utility might be different.


Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Job Control Language(JCL) All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group