IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Code (DFHMDF POS=(27,79),LENGTH=01) acceptable


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
rkprasanth_m

New User


Joined: 22 Jun 2006
Posts: 44

PostPosted: Thu Feb 08, 2007 2:46 pm
Reply with quote

I have a requirement to skip after 78 position.

In attempt to do, I have a code like DFHMDF POS=(27,79),LENGTH=01.

So my question is is that above code acceptable. I was thinking about attribute character for that field
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Fri Feb 09, 2007 7:06 pm
Reply with quote

Just off the top of my head, Why do you think it might not be acceptable?
And I'd be thinking ASKIP?
Back to top
View user's profile Send private message
rkprasanth_m

New User


Joined: 22 Jun 2006
Posts: 44

PostPosted: Fri Feb 09, 2007 10:00 pm
Reply with quote

A little correction to my code. That is 'DFHMDF POS=(27,80),LENGTH=01'

I didn't get how to skip 80th colomn. I have unprotected num field upto 79th. I wanted to skip 80th colomn. would you please help on this.

Thanks in advance
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Fri Feb 09, 2007 10:56 pm
Reply with quote

Dont forget, each field has that extra byte in front so POS=(27,80),LENGTH=01 will be occuping 27,80 & 28,01.....
Why do you need to skip it, if there is no field there, nothing will land there....
Back to top
View user's profile Send private message
rkprasanth_m

New User


Joined: 22 Jun 2006
Posts: 44

PostPosted: Tue Feb 13, 2007 5:05 pm
Reply with quote

Here I am sending the code.

DFHMDF POS=(28,73),LENGTH=06,ATTRB= BRT,UNPROT,NUM), X
PICIN='9(04)V99',PICOUT='Z(03).99'


Immediatly after I entered data in this field , curser goes into column 80, which is not supposed to happen. Can't I skip that 80th colomn?.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Tue Feb 13, 2007 5:13 pm
Reply with quote

What field do you have defined after "POS=(28,73)"?
Back to top
View user's profile Send private message
rkprasanth_m

New User


Joined: 22 Jun 2006
Posts: 44

PostPosted: Tue Feb 13, 2007 6:42 pm
Reply with quote

Field name is SC2PRCE, PIC S999V99 Comp-3
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Tue Feb 13, 2007 7:36 pm
Reply with quote

And what is its POS?
Back to top
View user's profile Send private message
rkprasanth_m

New User


Joined: 22 Jun 2006
Posts: 44

PostPosted: Tue Feb 13, 2007 8:08 pm
Reply with quote

Here I am sending all again

DFHMDF POS=(28,73),LENGTH=06,ATTRB= BRT,UNPROT,NUM), X
PICIN='9(04)V99',PICOUT='Z(03).99'


Thanks..
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Tue Feb 13, 2007 8:14 pm
Reply with quote

rkprasanth_m wrote:
Here I am sending all again
DFHMDF POS=(28,73),LENGTH=06,ATTRB= BRT,UNPROT,NUM), X
PICIN='9(04)V99',PICOUT='Z(03).99'
Here I am asking again
what does the DFHMDF after this one look like?
Back to top
View user's profile Send private message
rkprasanth_m

New User


Joined: 22 Jun 2006
Posts: 44

PostPosted: Tue Feb 13, 2007 8:29 pm
Reply with quote

I must have not been clear..

Ok. The above unprotected field occupies up to colomn 79. let us assume i have entered '0' in column 79, then the curcsor goes to column 80, but my requirement is it should not be happen, I want to place my curser automatically into the next unprotected field.

This time I hope I make it clear.

Thanks..
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Tue Feb 13, 2007 8:57 pm
Reply with quote

It would be clearer if you would please post the DFHMDFs for lines 28 and 29.
Back to top
View user's profile Send private message
rkprasanth_m

New User


Joined: 22 Jun 2006
Posts: 44

PostPosted: Tue Feb 13, 2007 9:05 pm
Reply with quote

Please have a look at the below code for lines 28 and 29

DFHMDF POS=(28,73),LENGTH=06,ATTRB=(BRT,UNPROT,NUM),
PICIN='9(04)V99',PICOUT='Z(03).99'

DFHMDF POS=(29,01),LENGTH=15,ATTRB=(NORM,ASKIP),
INITIAL=' PRODUCTS.....'
DFHMDF POS=(29,19),LENGTH=10,ATTRB=(BRT,UNPROT)
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Tue Feb 13, 2007 9:46 pm
Reply with quote

You might try this:
DFHMDF LENGTH=00,POS=(28,80),ATTRB=(ASKIP,NORM)
or backing up the following field like:
DFHMDF POS=(28,80),LENGTH=16,ATTRB=(NORM,ASKIP),INITIAL=' PRODUCTS.....'
I am not sure if the zero length on the first one will result in just the one byte attribute......But backing up the next one (with or without the blank pad) will work.

Sorry it took so long, I haven't BMSed in a long time.
Back to top
View user's profile Send private message
rkprasanth_m

New User


Joined: 22 Jun 2006
Posts: 44

PostPosted: Thu Feb 15, 2007 2:37 pm
Reply with quote

Thanks..Thompson

DFHMDF LENGTH=00,POS=(28,80),ATTRB=(ASKIP,NORM) is working great
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Thu Feb 15, 2007 2:50 pm
Reply with quote

Great to hear and thanks for closing thisw thread.

Bill icon_lol.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts COBOL Table data to a flat file with ... COBOL Programming 5
No new posts Getting OUTREC - SHORT REC error for ... DFSORT/ICETOOL 12
No new posts IEF085I REGION UNAVAILABLE,ERROR CODE... Java & MQSeries 0
No new posts How to convert RESP code 12 to text? CICS 9
No new posts Execute step regardless of previous s... JCL & VSAM 2
Search our Forums:

Back to Top