The following macro statements were generated from the mapset load module, BMSET40.
Note that the utility uses the name of the load module being disassembled as the label on the DFHMSD mapset definition macro, so that you can use it to build HTML template data sets which are accessible to the original 3270 applications. If you specify the suffixed version of the load module for a mapset as input to DFHBMSUP and you intend to use the output source to build HTML for the mapset, you may need to edit the DFHMSD label to remove the suffix.
Also note that DFHBMSUP does not know whether STORAGE=AUTO was defined in the original macro statements, so the DFHBMSUP output does not include STORAGE=AUTO on the DFHMSD mapset definition macro. If you require STORAGE=AUTO, edit the DFHMSD macro to include it.
You can edit all the names in the DFHBMSUP output to be more meaningful for your application.
* This is an unaligned mapset
*
TITLE 'BMSET40 Mapset MACRO Definition Listing'
BMSET40 DFHMSD TYPE=DSECT,LANG=ASM,MODE=INOUT
*
BMAP400 DFHMDI SIZE=(1,80),CTRL=(FRSET,FREEKB),COLUMN=1,LINE=1, *
MAPATTS=(COLOR,HILIGHT)
DFHMDF POS=0,LENGTH=4,ATTRB=(ASKIP,BRT),COLOR=PINK, *
HILIGHT=REVERSE,INITIAL='BM40'
DFHMDF POS=5,LENGTH=1,COLOR=BLUE
FLD00001 DFHMDF POS=16,LENGTH=45,ATTRB=(ASKIP,BRT),COLOR=NEUTRAL
DFHMDF POS=62,LENGTH=1,COLOR=BLUE
FLD00002 DFHMDF POS=78,LENGTH=1,COLOR=YELLOW
BMAP401 DFHMDI SIZE=(9,80),CTRL=(FRSET,FREEKB),COLUMN=1,LINE=2, *
MAPATTS=(COLOR,HILIGHT)
DFHMDF POS=0,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=80,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=160,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=240,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=320,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=400,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=480,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=560,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=658,LENGTH=39,COLOR=TURQUOISE, *
INITIAL='THIS SHOULD BE IN THE MIDDLE OF LINE 10'
*
BMAP402 DFHMDI SIZE=(1,80),CTRL=(FRSET,FREEKB),COLUMN=1,LINE=11, *
MAPATTS=(COLOR,HILIGHT)
DFHMDF POS=0,LENGTH=1,COLOR=BLUE,INITIAL=' '
BMAP403 DFHMDI SIZE=(1,80),CTRL=(FRSET,FREEKB),COLUMN=1,LINE=11, *
MAPATTS=(COLOR,HILIGHT)
DFHMDF POS=17,LENGTH=41,COLOR=TURQUOISE, *
INITIAL='THIS TEXT SHOULD NOT APPEAR ON THE SCREEN'
*
BMAP404 DFHMDI SIZE=(10,80),CTRL=(FRSET,FREEKB),COLUMN=1,LINE=12, *
MAPATTS=(COLOR,HILIGHT)
DFHMDF POS=18,LENGTH=39,COLOR=TURQUOISE, *
INITIAL='THIS SHOULD BE IN THE MIDDLE OF LINE 12'
DFHMDF POS=80,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=160,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=240,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=320,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=400,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=480,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=560,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=640,LENGTH=1,COLOR=BLUE,INITIAL=' '
DFHMDF POS=720,LENGTH=1,COLOR=BLUE,INITIAL=' '
*
BMAP405 DFHMDI SIZE=(3,80),CTRL=(FRSET,FREEKB),COLUMN=1,LINE=22, *
MAPATTS=(COLOR,HILIGHT)
FLD00003 DFHMDF POS=80,LENGTH=78,COLOR=BLUE
DFHMDF POS=160,LENGTH=41,COLOR=BLUE, *
INITIAL='PF1=HELP PF3=EXIT PF12=RETURN'
DFHMDF POS=208,LENGTH=30,COLOR=BLUE, *
INITIAL='ENTER=CONTINUE CLEAR=EXIT'
BMSET40 DFHMSD TYPE=FINAL
END