mapwit

用COBOL语言基于IBM大型机实现的一系列样例程序。

MAPWIT  DFHMSD TYPE=MAP,MODE=INOUT,LANG=COBOL,                         X
               STORAGE=AUTO,TIOAPFX=YES
INPUT   DFHMDI SIZE=(24,80),CTRL=(PRINT,FREEKB),MAPATTS=(OUTLINE,SOSI)
        DFHMDF POS=(2,30),ATTRB=(ASKIP,NORM),LENGTH=24,                X
               INITIAL='===WITHDRAW BUSINESS==='
        DFHMDF POS=(5,20),ATTRB=(ASKIP,NORM),LENGTH=12,                X
               INITIAL='ACCOUNT NUM:'
IACCT   DFHMDF POS=(5,40),ATTRB=(UNPROT,NUM),LENGTH=10,OUTLINE=(BOX)
        DFHMDF POS=(5,51),ATTRB=PROT,LENGTH=1
        DFHMDF POS=(7,20),ATTRB=(ASKIP,NORM),LENGTH=12,                X
               INITIAL='CUSTOM NAME:'
INAME   DFHMDF POS=(7,40),ATTRB=(UNPROT,IC),LENGTH=10,OUTLINE=(BOX)
        DFHMDF POS=(7,51),ATTRB=PROT,LENGTH=1
        DFHMDF POS=(9,20),ATTRB=(ASKIP,NORM),LENGTH=12,                X
               INITIAL='MONEY      :'
IMONEY  DFHMDF POS=(9,40),ATTRB=(UNPROT,NUM),LENGTH=13,                X
               OUTLINE=(BOX),PICIN='99999999999V99',                   X
               PICOUT='ZZZZZZZZZ9.99',JUSTIFY=(RIGHT,ZERO)
        DFHMDF POS=(9,59),ATTRB=PROT,LENGTH=1
        DFHMDF POS=(11,20),ATTRB=(ASKIP,NORM),LENGTH=12,               X
               INITIAL='PASSWORD   :'
IPASS   DFHMDF POS=(11,40),ATTRB=(UNPROT,NUM),LENGTH=6,                X
               OUTLINE=(BOX)
        DFHMDF POS=(11,47),ATTRB=PROT,LENGTH=1
SUCCD   DFHMDI SIZE=(24,80),CTRL=(PRINT,FREEKB),MAPATTS=(OUTLINE,SOSI)
        DFHMDF POS=(2,30),ATTRB=(ASKIP,NORM),LENGTH=22,                X
               INITIAL='DEPOSIT SUCCEED'
        DFHMDF POS=(5,20),ATTRB=(ASKIP,NORM),LENGTH=12,                X
               INITIAL='ACCOUNT NUM:'
OACCT   DFHMDF POS=(5,40),ATTRB=(UNPROT,NUM),LENGTH=10
        DFHMDF POS=(5,51),ATTRB=PROT,LENGTH=1
        DFHMDF POS=(7,20),ATTRB=(ASKIP,NORM),LENGTH=12,                X
               INITIAL='CUSTOM NAME:'
ONAME   DFHMDF POS=(7,40),ATTRB=(UNPROT,IC),LENGTH=10
        DFHMDF POS=(7,51),ATTRB=PROT,LENGTH=1
        DFHMDF POS=(11,20),ATTRB=(ASKIP,NORM),LENGTH=12,               X
               INITIAL='BALANCE    :'
OMONEY  DFHMDF POS=(11,40),ATTRB=(UNPROT,NUM),LENGTH=13,               X
               PICIN='99999999999V99',                                 X
               PICOUT='ZZZZZZZZZ9.99'
        DFHMDF POS=(11,54),ATTRB=PROT,LENGTH=1
FAIL    DFHMDI SIZE=(24,80),CTRL=(PRINT,FREEKB),MAPATTS=(OUTLINE,SOSI)
        DFHMDF POS=(2,30),ATTRB=(ASKIP,NORM),LENGTH=20,                X
               INITIAL='DEPOSIT  FAILED '
        DFHMDF POS=(8,10),ATTRB=(ASKIP,NORM),LENGTH=7,                 X
               INITIAL='REASON:'
ERRMSG  DFHMDF POS=(8,20),ATTRB=(UNPROT,IC),LENGTH=60
ERRMSG1 DFHMDF POS=(16,1),ATTRB=(UNPROT,IC),LENGTH=80
ERRMSG2 DFHMDF POS=(17,1),ATTRB=(UNPROT,IC),LENGTH=80
ERRMSG3 DFHMDF POS=(18,1),ATTRB=(UNPROT,IC),LENGTH=80
ERRMSG4 DFHMDF POS=(19,1),ATTRB=(UNPROT,IC),LENGTH=80
ERRMSG5 DFHMDF POS=(20,1),ATTRB=(UNPROT,IC),LENGTH=80
ERRMSG6 DFHMDF POS=(21,1),ATTRB=(UNPROT,IC),LENGTH=80
ERRMSG7 DFHMDF POS=(22,1),ATTRB=(UNPROT,IC),LENGTH=80
        DFHMSD TYPE=FINAL
        END