Partly move spaces into a Map variable

dudenithy · New User Joined: 02 Mar 2012 Posts: 48 Location: India

Hi,

I have a existing screen with lines displaying as below,

L=LOST VALID CODES ARE VALID CODES ( )
S=STOLEN 04=PICK UP ARE 0-9 AND ( )
F=FRAUD 07=SPCL PICK UP A-F AND ( )

I have the variable declared for the above as,

000287 SG11070 DFHMDF POS=(10,70), X
000288 LENGTH=01, X
000289 ATTRB=(ASKIP,NORM), X
000290 INITIAL=')'
000291 ***********************************************************************
000292 DFHMDF POS=(11,01), X
000293 LENGTH=08, X
000294 ATTRB=(ASKIP,NORM), X
000295 INITIAL='S=STOLEN'
000296 ***********************************************************************
000297 DFHMDF POS=(11,28), X
000298 LENGTH=12, X
000299 ATTRB=(ASKIP,NORM), X
000300 INITIAL='04=PICK UP'
000301 ***********************************************************************
000302 DFHMDF POS=(11,54), X
000303 LENGTH=11, X
000304 ATTRB=(ASKIP,NORM), X
000305 INITIAL='ARE 0-9 AND'
000306 ***********************************************************************
000307 SG11166 DFHMDF POS=(11,66), X
000308 LENGTH=01, X
000309 ATTRB=(ASKIP,NORM), X
000310 INITIAL='('

My requirement is I need to hide '04=PICK UP' string from display in map. Is there any option to hide that string alone through CICS program. Since the variable is declared for all continuous strings in the physical map, is there any option to hide specific strings, like using Cobol reference modification.

Rohit Umarjikar · Posted: Mon Sep 17, 2012 7:00 pm

1) If its one time change i.e. in future you don't need that to be displayed then why don't you change the map with DRK attrb.
2) if that is to be controlled dynamically then add a lable to it and then move DRK attribute to 'A' byte of it and send the map.

I might not be knowing other options but this what I can think of it.

dudenithy · New User Joined: 02 Mar 2012 Posts: 48 Location: India

Thanks Rogit for ur reply.

Yeah, this is my earlier thought too (to modify map with declaring a variable for that string with DRK attribute). But I was thinking not to change the Map definition, but just to change the CICS Program to partly move spaces into that String position, so that recompilation of pgm is enough. I dont find any option like Reference modification in cobol.

Nic Clouston · Posted: Tue Sep 18, 2012 1:07 am

Robert Sample · Posted: Tue Sep 18, 2012 1:15 am

There is a link to Manuals at the top of this page. Click on it, find the Enterprise COBOL Language Reference manual, and read section 1.8.1.10 Reference Modification to learn more. Reference modifcation has been part of COBOL since at least 1993, and most likely longer, so there is no excuse for you not knowing what it is and how it works. Unless, of course, you do not know COBOL at all.

Bill Woodger · Posted: Tue Sep 18, 2012 3:07 am

Bill O'Boyle · Posted: Tue Sep 18, 2012 6:01 am

You'll need to add a label to line 297, preceding the DFHMDF macro, such as SG11128 and re-assemble the map, then re-compile the program. Be careful of redefined map-copybooks in the program, because yours just changed and it will acquire adjustments.

In the generated map-copybook, look for map-field SG11128A (attribute-byte field), move DFHBMDAS to it and you've darkened the literal "'04=PICK UP'".

IBM byte-attributes can be found in copybook DFHBMSCA, in the SDFHMAC library.

Remember, in BMS/Assembler

NO LABEL, NO ACCESS. Thank you for your support....

dudenithy · New User Joined: 02 Mar 2012 Posts: 48 Location: India

Thanks Bill for your suggestion.

Nic,Robert, I'm aware of Reference modfication in Cobol and using it for a long time. I intended to said that i couldn't find similar kind of function in CICS command, for my current problem. (moving spaces to part of a whole string). Thanks anyway for your responses

Rohit Umarjikar · Posted: Tue Sep 18, 2012 12:33 pm

Dudenithy,

Whatever Me and Bill suggested , why don't you try out that part?

Is changing of map is the concern also what logic are you thinking about Reference modification in sense with your question?

dudenithy · New User Joined: 02 Mar 2012 Posts: 48 Location: India

Yes Rohit, Atlast i need to change the map on no other option. I have raised this post to get an idea of any functionality that ll do partial space move to the cics variable. Reference Modification came into picture because in a cobol program, by using this, we ll move partial space move to a variable. If any option is available, i can just change Cics program alone and not map.

Rohit Umarjikar · Posted: Tue Sep 18, 2012 12:49 pm

dick scherrer · Posted: Tue Sep 18, 2012 11:51 pm

Hello,

Bill O'Boyle · Posted: Wed Sep 19, 2012 3:08 am

Dick,

Without a label defined to this map-location in the MAPSET, you would have to update the load-module plus, you'd need to know the offset.

Updating the load-module would be a very bad idea. This is why I had suggested to add a label and set the label/field attribute-byte in the generated map-copybook (SG11128A) to ASKIP,DRK (DFHBMDAS).

dick scherrer · Posted: Wed Sep 19, 2012 3:22 am

Thanks Bill,

My bad - was having a brain fade . . .

I'd forgotten the target was actually the map. Had the data been build in a ds, might have been better. When slinging code was my main "thing to do", i worked in "temproray fields" rather than within the files, database areas, maps etc. (edited for clarity)

As i said - "Possibly there is something i misunderstand." D'oH .
(quietly skulking away from the terminal . . .)

d

Rohit Umarjikar · Posted: Thu Sep 20, 2012 2:59 pm

Dick,

We just wanted to convey TS that Reference modification in this perticulat case is not possible.