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
 

 

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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
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    Post subject: Code (DFHMDF POS=(27,79),LENGTH=01) acceptable
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: 3158
Location: Tucson AZ

PostPosted: Fri Feb 09, 2007 7:06 pm    Post subject:
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    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Fri Feb 09, 2007 10:56 pm    Post subject:
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    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Tue Feb 13, 2007 5:13 pm    Post subject:
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    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Tue Feb 13, 2007 7:36 pm    Post subject:
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    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Tue Feb 13, 2007 8:14 pm    Post subject:
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    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Tue Feb 13, 2007 8:57 pm    Post subject:
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    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Tue Feb 13, 2007 9:46 pm    Post subject:
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    Post subject:
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: 3158
Location: Tucson AZ

PostPosted: Thu Feb 15, 2007 2:50 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm
No new posts DB2 Program abending without giving a... rahulgarg14 DB2 7 Mon May 29, 2017 8:10 pm
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm


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