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

rkprasanth_m · New User Joined: 22 Jun 2006 Posts: 44

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

William Thompson · Posted: Fri Feb 09, 2007 7:06 pm

Just off the top of my head, Why do you think it might not be acceptable?
And I'd be thinking ASKIP?

rkprasanth_m · New User Joined: 22 Jun 2006 Posts: 44

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

William Thompson · Posted: Fri Feb 09, 2007 10:56 pm

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....

rkprasanth_m · New User Joined: 22 Jun 2006 Posts: 44

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?.

William Thompson · Posted: Tue Feb 13, 2007 5:13 pm

What field do you have defined after "POS=(28,73)"?

rkprasanth_m · New User Joined: 22 Jun 2006 Posts: 44

Field name is SC2PRCE, PIC S999V99 Comp-3

William Thompson · Posted: Tue Feb 13, 2007 7:36 pm

And what is its POS?

rkprasanth_m · New User Joined: 22 Jun 2006 Posts: 44

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..

William Thompson · Posted: Tue Feb 13, 2007 8:14 pm

rkprasanth_m · New User Joined: 22 Jun 2006 Posts: 44

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..

William Thompson · Posted: Tue Feb 13, 2007 8:57 pm

It would be clearer if you would please post the DFHMDFs for lines 28 and 29.

rkprasanth_m · New User Joined: 22 Jun 2006 Posts: 44

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)

William Thompson · Posted: Tue Feb 13, 2007 9:46 pm

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.

rkprasanth_m · New User Joined: 22 Jun 2006 Posts: 44

Thanks..Thompson

DFHMDF LENGTH=00,POS=(28,80),ATTRB=(ASKIP,NORM) is working great

William Thompson · Posted: Thu Feb 15, 2007 2:50 pm

Great to hear and thanks for closing thisw thread.

Bill