Compile and Execute COBOL Online

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.
WORKING-STORAGE SECTION.

01 X-SEP-CHAR   PIC X(1).
01 SY-L07DATA   PIC X(2002).

01 NWEB-L07-DATA.
    05 NWEB-L07DCN          PIC X(16) VALUE SPACES.
    05 NWEB-ORIGDCN          PIC X(16) VALUE SPACES.
    05 NWEB-LOWDCN       PIC X(4) VALUE SPACES.
    05 NWEB-HIGHDCN      PIC X(4) VALUE SPACES.
    05 NWEB-CNTRY      PIC X(3) VALUE SPACES.
    05 NWEB-050      PIC X(4) VALUE SPACES.
    05 NWEB-060      PIC X(9) VALUE SPACES.
    05 NWEB-070      PIC X(3) VALUE SPACES.
    05 NWEB-081      PIC X(255) VALUE SPACES.
    05 NWEB-082     PIC X(255) VALUE SPACES.
    05 NWEB-083          PIC X(255) VALUE SPACES.
    05 NWEB-084          PIC X(5) VALUE SPACES.
    05 NWEB-085          PIC X(75) VALUE SPACES.
    05 NWEB-086          PIC X(255) VALUE SPACES.
    05 NWEB-091          PIC X(5) VALUE SPACES.
    05 NWEB-092          PIC X(255) VALUE SPACES.
    05 NWEB-093          PIC X(75) VALUE SPACES.
    05 NWEB-094          PIC X(1) VALUE SPACES.
    05 NWEB-095          PIC X(1) VALUE SPACES.
    05 NWEB-096          PIC X(1) VALUE SPACES.
    05 NWEB-100          PIC X(255) VALUE SPACES.
    05 NWEB-110          PIC X(75) VALUE SPACES.
    05 NWEB-120          PIC X(75) VALUE SPACES.
    

PROCEDURE DIVISION.
DISPLAY 'Hello, world'.

MOVE 'DFZC18088GS00087;DFZC18088GS0AAAO;0087;0087;ZZ;0001;'-
';;GYROSCOPE;;;06811;CANADIAN ARMED MEGA SUPER GUYS;;;;;N;M;Y;;;DOE, JOHN'
TO SY-L07DATA

MOVE ';' TO X-SEP-CHAR

UNSTRING SY-L07DATA DELIMITED BY X-SEP-CHAR
INTO NWEB-L07DCN, NWEB-ORIGDCN, NWEB-LOWDCN, NWEB-HIGHDCN, NWEB-CNTRY, 
NWEB-050, NWEB-060, NWEB-070, NWEB-081, NWEB-082, NWEB-083, NWEB-084, NWEB-085,
NWEB-086, NWEB-091, NWEB-092, NWEB-093, NWEB-094, NWEB-095, NWEB-096, NWEB-100,
NWEB-110, NWEB-120
END-UNSTRING.

DISPLAY 'UNSTRINGED DATA= ' 
DISPLAY 'L07DCN= ' NWEB-L07DCN 
DISPLAY 'ORIGDCN= ' NWEB-ORIGDCN 
DISPLAY 'LOWDCN=' NWEB-LOWDCN
DISPLAY 'HIGHDCN=' NWEB-HIGHDCN 
DISPLAY 'CNTRY=' NWEB-CNTRY 
DISPLAY '050=' NWEB-050 
DISPLAY '060=' NWEB-060
DISPLAY '070=' NWEB-070 
DISPLAY '081=' NWEB-081 
DISPLAY '082=' NWEB-082 
DISPLAY '083=' NWEB-083 
DISPLAY '084=' NWEB-084
DISPLAY '085=' NWEB-085
DISPLAY '086=' NWEB-086
DISPLAY '091=' NWEB-091
DISPLAY '092=' NWEB-092
DISPLAY '093=' NWEB-093
DISPLAY '094=' NWEB-094
DISPLAY '095=' NWEB-095
DISPLAY '096=' NWEB-096
DISPLAY '100=' NWEB-100
DISPLAY '110=' NWEB-110
DISPLAY '120=' NWEB-120



STOP RUN.