IDENTIFICATION
DIVISION.
PROGRAM-ID. PICCLAUS.
AUTHOR. KK.
DATE-WRITTEN. 11-11-1111.
SECURITY.
DATA
DIVISION.
WORKING-STORAGE
SECTION.
01 DEMOZ
PIC ZZZZ.
01 DEMODOL PIC $$$$.
01 DEMOMUL PIC ****.
01 DEMOMIN PIC ----.
01 DEMOPLU PIC ++++.
01 DEMOCR PIC 999CR.
01 DEMODB PIC 999DB.
01 DEMOPER PIC ZZ99.99.
01 DEMOCOM PIC 9,99,9.
01 DEMO PIC 9(4)V9(2) VALUE 0234.12.
01
DEMO1 PIC S9(4) VALUE -1234.
PROCEDURE
DIVISION.
0000-MAIN
SECTION.
1000-ACCEPT-PARA.
MOVE
DEMO TO DEMOZ.
MOVE
DEMO TO DEMODOL.
MOVE
DEMO TO DEMOMUL.
MOVE
DEMO TO DEMOMIN.
MOVE
DEMO TO DEMOPLU.
MOVE
DEMO1 TO DEMOCR.
MOVE
DEMO1 TO DEMODB.
MOVE
DEMO TO DEMOPER.
MOVE
DEMO TO DEMOCOM.
DISPLAY
"DEMO ZZZZ " DEMOZ.
DISPLAY
"DEMO $$$$ " DEMODOL.
DISPLAY
"DEMO **** " DEMOMUL.
DISPLAY
"DEMO ---- " DEMOMIN.
DISPLAY
"DEMO ++++ " DEMOPLU.
DISPLAY
"DEMO 999CR " DEMOCR.
DISPLAY
"DEMO 999DB " DEMODB.
DISPLAY
"DEMO ZZ99.99 " DEMOPER.
DISPLAY
"DEMO 9,99,9 " DEMOCOM.
DISPLAY
"DEMO " DEMO.
DISPLAY "DEMO1 " DEMO1.
2000-EXIT-PARA.
STOP RUN.
No comments:
Post a Comment