*** NJF - Update for DSECT generation compatibility
*** Must be assembled with /SDF option
DLIDEMO DFHMSD LANG=COBOL,                                             -
               MODE=INOUT,                                             -
               STORAGE=AUTO,                                           -
               TERM=3270-2,                                            -
               TIOAPFX=YES,                                            -
               TYPE=&&SYSPARM 
DEMO90  DFHMDI CTRL=(ALARM,FREEKB,FRSET),                              -
               DATA=FIELD,                                             -
               SIZE=(24,80),                                           -
               TIOAPFX=YES 
* ENDING-TRANCODE
FLD9000 DFHMDF ATTRB=(FSET,IC,UNPROT),                                 -
               LENGTH=79,                                              -
               POS=(1,1) 
        DFHMDF ATTRB=(ASKIP,BRT),                                      -
               LENGTH=26,                                              -
               POS=(3,27),                                             -
               INITIAL='   MICRO FOCUS LIMITED    ' 
* END-LINE1
FLD9001 DFHMDF ATTRB=(ASKIP,BRT),                                      -
               LENGTH=60,                                              -
               POS=(7,10) 
* END-LINE2
FLD9002 DFHMDF ATTRB=(ASKIP,BRT),                                      -
               LENGTH=60,                                              -
               POS=(9,10) 
* END-LINE3
FLD9003 DFHMDF ATTRB=(ASKIP,BRT),                                      -
               LENGTH=60,                                              -
               POS=(11,10) 
* END-LINE4
FLD9004 DFHMDF ATTRB=(ASKIP,BRT),                                      -
               LENGTH=60,                                              -
               POS=(13,10) 
* END-LINE5
FLD9005 DFHMDF ATTRB=(ASKIP,BRT),                                      -
               LENGTH=60,                                              -
               POS=(15,10) 
* END-LINE6
FLD9006 DFHMDF ATTRB=(ASKIP,BRT),                                      -
               LENGTH=60,                                              -
               POS=(17,10) 
DEMO91  DFHMDI CTRL=(ALARM,FREEKB,FRSET),                              -
               DATA=FIELD,                                             -
               SIZE=(24,80),                                           -
               TIOAPFX=YES 
* DEMO91-TRANSCODE
FLD9100 DFHMDF ATTRB=(ASKIP,FSET,NORM),                                -
               LENGTH=79,                                              -
               POS=(1,1) 
* DEMO91-PROGRAM-NO
FLD9101 DFHMDF ATTRB=(ASKIP,FSET,NORM),                                -
               LENGTH=8,                                               -
               POS=(2,2) 
        DFHMDF ATTRB=(ASKIP,BRT),                                      -
               LENGTH=44,                                              -
               POS=(2,12),                                             -
               INITIAL='MICRO FOCUS LIMITED - TABLE FILE MAINTENANCE' 
* DEMO91-ERR-MSG
FLD9102 DFHMDF ATTRB=(ASKIP,BRT),                                      -
               LENGTH=35,                                              -
               POS=(3,45) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=43,                                              -
               POS=(4,1),                                              -
               INITIAL='SELECT ONE OF THE FOLLOWING FUNCTION CODES:' 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=23,                                              -
               POS=(6,1),                                              -
               INITIAL='<A>DD      - TABLE FILE' 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=23,                                              -
               POS=(7,1),                                              -
               INITIAL='<C>HANGE   - TABLE FILE' 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=23,                                              -
               POS=(8,1),                                              -
               INITIAL='<D>ELETE   - TABLE FILE' 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=23,                                              -
               POS=(9,1),                                              -
               INITIAL='<I>NQUIRE  - TABLE FILE' 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=29,                                              -
               POS=(12,1),                                             -
               INITIAL='<E>ND      - TRANSACTION CODE' 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=13,                                              -
               POS=(14,1),                                             -
               INITIAL='FUNCTION CODE' 
* DEMO91-FUNCTION
FLD9103 DFHMDF ATTRB=(FSET,IC,UNPROT),                                 -
               LENGTH=1,                                               -
               POS=(14,15) 
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               LENGTH=1,                                               -
               POS=(14,17) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=8,                                               -
               POS=(22,1),                                             -
               INITIAL='TABLE-ID' 
* DEMO91-TABLE-ID
FLD9104 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=32,                                              -
               POS=(22,12) 
* DEMO91-ELES
FLD9105 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(22,45) 
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               LENGTH=1,                                               -
               POS=(22,66) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=8,                                               -
               POS=(23,1),                                             -
               INITIAL='PASSWORD' 
* DEMO91-PASSWORD
FLD9106 DFHMDF ATTRB=(DRK,FSET,UNPROT),                                -
               LENGTH=8,                                               -
               POS=(23,12) 
        DFHMDF ATTRB=(ASKIP,NORM),                                     -
               LENGTH=1,                                               -
               POS=(23,21) 
DEMO92  DFHMDI CTRL=(ALARM,FREEKB,FRSET),                              -
               DATA=FIELD,                                             -
               SIZE=(24,80),                                           -
               TIOAPFX=YES 
* DEMO92-TRANSCODE
FLD9200 DFHMDF ATTRB=(ASKIP,BRT),                                      -
               LENGTH=79,                                              -
               POS=(1,1) 
* DEMO92-PROGRAM-NO
FLD9201 DFHMDF ATTRB=(ASKIP,FSET),                                     -
               LENGTH=8,                                               -
               POS=(2,1) 
        DFHMDF ATTRB=(ASKIP,BRT),                                      -
               LENGTH=54,                                              -
               POS=(2,11),                                             -
               INITIAL='MICRO FOCUS LIMITED - TABLE FILE MAINTENANCE   -
                      ' 
* DEMO92-TYPE
FLD9202 DFHMDF ATTRB=(ASKIP,FSET),                                     -
               LENGTH=7,                                               -
               POS=(2,67) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=9,                                               -
               POS=(3,1),                                              -
               INITIAL='TABLE-ID:' 
* DEMO92-TABLE-ID
FLD9203 DFHMDF ATTRB=(ASKIP,FSET),                                     -
               LENGTH=32,                                              -
               POS=(3,11) 
* DEMO92-ERR-MSG
FLD9204 DFHMDF ATTRB=(ASKIP,BRT),                                      -
               LENGTH=35,                                              -
               POS=(3,45) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=12,                                              -
               POS=(4,1),                                              -
               INITIAL='DESCRIPTION:' 
* DEMO92-LAST-KEY-GRP
* DEMO92-LAST-KEY-GRP          DEMO92-LAST-KEY
FLD9205 DFHMDF ATTRB=(ASKIP,DRK,FSET),                                 -
               GRPNAME=ABCD,                                           -
               LENGTH=20,                                              -
               POS=(4,14) 
* DEMO92-LAST-KEY-GRP          DEMO92-PROCESS-IND
FLDA215 DFHMDF GRPNAME=ABCD,                                           -
               LENGTH=1,                                               -
               POS=(4,34) 
* DEMO92-LAST-KEY-GRP          DEMO92-STATUS
FLD9225 DFHMDF GRPNAME=ABCD,                                           -
               LENGTH=1,                                               -
               POS=(4,35) 
* DEMO92-LAST-KEY-GRP          DEMO92-ISRT-ROOT
FLD9235 DFHMDF GRPNAME=ABCD,                                           -
               LENGTH=1,                                               -
               POS=(4,36) 
* DEMO92-LAST-KEY-GRP          DEMO92-EXPAND
FLD9245 DFHMDF GRPNAME=ABCD,                                           -
               LENGTH=13,                                              -
               POS=(4,37) 
* DEMO92-DESC
FLD9206 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(5,1) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(5,52) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=36,                                              -
               POS=(6,2),                                              -
               INITIAL='NUMBER OF CHARACTERS IN ELEMENT KEY:' 
* DEMO92-ELE-KEY-CNT
FLD9207 DFHMDF ATTRB=(FSET,NUM,UNPROT),                                -
               LENGTH=2,                                               -
               PICIN='9(2)',                                           -
               POS=(6,39) 
*              PICIN='9(02)'
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=32,                                              -
               POS=(6,42),                                             -
               INITIAL='NUMBER OF CHARACTERS IN ELEMENT:' 
* DEMO92-ELE-CHR
FLD9208 DFHMDF ATTRB=(FSET,NUM,UNPROT),                                -
               LENGTH=2,                                               -
               PICIN='9(2)',                                           -
               POS=(6,75) 
*              PICIN='9(02)'
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(6,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=18,                                              -
               POS=(7,2),                                              -
               INITIAL='LAST ACTIVITY DATE' 
* DEMO92-ACT-DATE
FLD9209 DFHMDF ATTRB=(ASKIP,FSET),                                     -
               LENGTH=8,                                               -
               POS=(7,21) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=17,                                              -
               POS=(7,30),                                             -
               INITIAL='PASSWORD PROTECT:' 
* DEMO92-TBL-PROT
FLD9210 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(7,48) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=9,                                               -
               POS=(7,50),                                             -
               INITIAL='PASSWORD:' 
* DEMO92-TBL-PSW
FLD9211 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=8,                                               -
               POS=(7,60) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(7,69) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=12,                                              -
               POS=(8,2),                                              -
               INITIAL='NUMERIC KEY:' 
* DEMO92-ELE-NUM-KEY
FLD9212 DFHMDF ATTRB=(ASKIP,FSET),                                     -
               LENGTH=1,                                               -
               POS=(8,15) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=22,                                              -
               POS=(8,17),                                             -
               INITIAL='NUMERIC ELEMENT VALUE:' 
* DEMO92-ELE-NUM-VAL
FLD9213 DFHMDF ATTRB=(ASKIP,FSET),                                     -
               LENGTH=1,                                               -
               POS=(8,40) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=51,                                              -
               POS=(9,1),                                              -
               INITIAL='FUNC ELEMENT KEY          ELEMENT VALUE/DESCRIP-
               TION' 
* CRT-LINE.DEMO92-FUNC
FLD9214 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(10,4) 
* CRT-LINE.DEMO92-ELE-KEY
FLD9215 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(10,6) 
* CRT-LINE.DEMO92-ELE-DATA
FLD9216 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(10,27) 
* CRT-LINE.DEMO92-FUNC
F000002 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(11,4) 
* CRT-LINE.DEMO92-ELE-KEY
F000001 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(11,6) 
* CRT-LINE.DEMO92-ELE-DATA
F000000 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(11,27) 
* CRT-LINE.DEMO92-FUNC
F000005 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(12,4) 
* CRT-LINE.DEMO92-ELE-KEY
F000004 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(12,6) 
* CRT-LINE.DEMO92-ELE-DATA
F000003 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(12,27) 
* CRT-LINE.DEMO92-FUNC
F000008 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(13,4) 
* CRT-LINE.DEMO92-ELE-KEY
F000007 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(13,6) 
* CRT-LINE.DEMO92-ELE-DATA
F000006 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(13,27) 
* CRT-LINE.DEMO92-FUNC
F000011 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(14,4) 
* CRT-LINE.DEMO92-ELE-KEY
F000010 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(14,6) 
* CRT-LINE.DEMO92-ELE-DATA
F000009 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(14,27) 
* CRT-LINE.DEMO92-FUNC
F000014 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(15,4) 
* CRT-LINE.DEMO92-ELE-KEY
F000013 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(15,6) 
* CRT-LINE.DEMO92-ELE-DATA
F000012 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(15,27) 
* CRT-LINE.DEMO92-FUNC
F000017 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(16,4) 
* CRT-LINE.DEMO92-ELE-KEY
F000016 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(16,6) 
* CRT-LINE.DEMO92-ELE-DATA
F000015 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(16,27) 
* CRT-LINE.DEMO92-FUNC
F000020 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(17,4) 
* CRT-LINE.DEMO92-ELE-KEY
F000019 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(17,6) 
* CRT-LINE.DEMO92-ELE-DATA
F000018 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(17,27) 
* CRT-LINE.DEMO92-FUNC
F000023 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(18,4) 
* CRT-LINE.DEMO92-ELE-KEY
F000022 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(18,6) 
* CRT-LINE.DEMO92-ELE-DATA
F000021 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(18,27) 
* CRT-LINE.DEMO92-FUNC
F000026 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(19,4) 
* CRT-LINE.DEMO92-ELE-KEY
F000025 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(19,6) 
* CRT-LINE.DEMO92-ELE-DATA
F000024 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(19,27) 
* CRT-LINE.DEMO92-FUNC
F000029 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(20,4) 
* CRT-LINE.DEMO92-ELE-KEY
F000028 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(20,6) 
* CRT-LINE.DEMO92-ELE-DATA
F000027 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(20,27) 
* CRT-LINE.DEMO92-FUNC
F000032 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(21,4) 
* CRT-LINE.DEMO92-ELE-KEY
F000031 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(21,6) 
* CRT-LINE.DEMO92-ELE-DATA
F000030 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(21,27) 
* CRT-LINE.DEMO92-FUNC
F000035 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(22,4) 
* CRT-LINE.DEMO92-ELE-KEY
F000034 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(22,6) 
* CRT-LINE.DEMO92-ELE-DATA
F000033 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(22,27) 
* CRT-LINE.DEMO92-FUNC
F000038 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(23,4) 
* CRT-LINE.DEMO92-ELE-KEY
F000037 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(23,6) 
* CRT-LINE.DEMO92-ELE-DATA
F000036 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=50,                                              -
               POS=(23,27) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(10,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(11,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(12,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(13,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(14,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(15,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(16,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(17,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(18,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(19,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(20,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(21,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(22,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(23,78) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=21,                                              -
               POS=(24,2),                                             -
               INITIAL='NEXT FUNCTION: RETURN' 
* DEMO92-RETURN
FLD9256 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(24,24) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=8,                                               -
               POS=(24,26),                                            -
               INITIAL='CONTINUE' 
* DEMO92-CONT
FLD9257 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(24,35) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=5,                                               -
               POS=(24,37),                                            -
               INITIAL='ABORT' 
* DEMO92-ABORT
FLD9258 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=1,                                               -
               POS=(24,43) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=12,                                              -
               POS=(24,45),                                            -
               INITIAL='NEXT-ELEMENT' 
* DEMO92-NEXT-KEY
FLD9259 DFHMDF ATTRB=(FSET,UNPROT),                                    -
               LENGTH=20,                                              -
               POS=(24,58) 
        DFHMDF ATTRB=(ASKIP),                                          -
               LENGTH=1,                                               -
               POS=(24,79) 
        DFHMSD TYPE=FINAL
        END
