CICS Map Generator

To Begin: Paste existing map code in the textarea and click 'Parse From Source' OR click anywhere in the grid to start a new map.

Usage:
* Click an empty cell to add a new field.

* Click on a field to set focus.

* Focused fields can be moved by clicking and dragging.

* Focused fields can be resized by clicking and dragging the right edge.

* Add a field name and initial text to focused field using the form below the grid.

* Right-click on a field to delete it.

* Click 'Reset Map' to start over.

Cursor Row: Col:
Cursor Posn:
Use this value to dynamically set cursor in CICS.

000011 * This is some sample code. You don't have to use it. You can
000012 * use your own if you'd like or just click on the grid to start
000011 * a new map without parsing from an existing map. Note: it's ok
000012 * if you paste line numbers in here - that way you can use
000013 * code from terminal screen dumps which often include them.
000014
000015          PRINT NOGEN                                                    
000016 MAPSET1  DFHMSD TYPE=&SYSPARM,MODE=INOUT,LANG=COBOL,                   *
000017                STORAGE=AUTO,CTRL=(FREEKB,FRSET),TERM=3270,             *
000018                TIOAPFX=YES,EXTATT=NO                                    
000019 *                                                                       
000020 * MAIN STATE TAX PROCESSING MAP                                         
000021 *                                                                       
000022 STATEGM  DFHMDI SIZE=(24,80)                                            
000023 *                                                                       
000024          DFHMDF POS=(02,23),LENGTH=29,ATTRB=(ASKIP,NORM),              *
000025                INITIAL='STATE CODE TAX PROCESSING    '                  
000026          DFHMDF POS=(02,62),LENGTH=15,ATTRB=(ASKIP,NORM),              *
000027                INITIAL='VER: 08/03/2016'                                
000028                                                                         
000029                                                                         
000030          DFHMDF POS=(04,12),LENGTH=12,ATTRB=(ASKIP,NORM),              *
000031                INITIAL='ACTION    :'                                    
000032 ACTIONC  DFHMDF POS=(04,25),LENGTH=01,ATTRB=(UNPROT,NORM,IC,FSET)       
000033          DFHMDF POS=(04,27),LENGTH=01,ATTRB=(ASKIP,NORM)                
000034 *                                                                       
000035                                                                         
000036          DFHMDF POS=(06,12),LENGTH=12,ATTRB=(ASKIP,NORM),              *
000037                INITIAL='STATE CODE: '                                   
000038 STATECD  DFHMDF POS=(06,25),LENGTH=02,ATTRB=(UNPROT,NORM,FSET)          
000039          DFHMDF POS=(06,28),LENGTH=01,ATTRB=(ASKIP,NORM)                
000040 *                                                                       
000041          DFHMDF POS=(08,12),LENGTH=12,ATTRB=(ASKIP,NORM),              *
000042                INITIAL='STATE TAX : '                                   
000043 STATETX  DFHMDF POS=(08,25),LENGTH=06,ATTRB=(UNPROT,NUM,NORM)           
000044          DFHMDF POS=(08,32),LENGTH=01,ATTRB=(ASKIP,NORM)                
000045 *                                                                       
000046 ERRMSG   DFHMDF POS=(23,04),LENGTH=76,ATTRB=(ASKIP,NORM),              *
000047                INITIAL='< MESSAGE AND INFORMATION LINE >'               
000048                                                                         
000049          DFHMSD TYPE=FINAL                                              
000050          END