in6.cbl

这是一个Linux下的集成开发环境

       IDENTIFICATION DIVISION.
         PROGRAM-ID.    PROBE is common program comment_entry
         AUTHOR.        J. GROSCH.
         installation.        comment_entry
         DATE-WRITTEN.  26.05.94.
         DATE-COMPILED. 26.05.94.
         security.        comment_entry
         remarks.        comment_entry
      *
       ENVIRONMENT DIVISION.
         CONFIGURATION SECTION.
           SOURCE-COMPUTER. PC 47.11.
           OBJECT-COMPUTER. PC 08.15
	       memory size 13 modules
	       program collating sequence is quak
	       segment-limit is 14.
             special-names.
               switch-0 is a
               switch-1 is a on is b off status is c
               a off status is c on is b
             alphabet quak is native
             alphabet quark ascii
             alphabet quarks 0 1 thru 2 3 also 4 also 5
             symbolic characters a b c is 1 2 3
                                 d e f is 4 5 6
                                 g h i is 1 2 3 in quak
             symbolic characters a b c is 1 2 3
                                 d e f is 4 5 6
                                 g h i is 1 2 3 in quark
             symbolic characters a b c is 1 2 3
                                 d e f is 4 5 6
                                 g h i is 1 2 3
	     class c is 'a' 'b' 'c' thru 'd'
	     class d is 'a' 'b' 'c' thru 'd'
	     class e is 'a' 'b' 'c' thru 'd'
	     currency sign is '$'
	     decimal-point is comma
	     numeric sign is trailing separate
	     call-convention 3 is aufruf
	     console is crt
	     cursor is cur crt status is stat.

         INPUT-OUTPUT SECTION.
           FILE-CONTROL.
             SELECT D1 ASSIGN TO EXTERNAL DD224000
                  ORGANIZATION IS SEQUENTIAL
        	  RESERVE  1  ALTERNATE AREA.
             SELECT D2 ASSIGN TO EXTERNAL DD224000
                  ORGANIZATION IS SEQUENTIAL
        	  RESERVE  1  ALTERNATE AREA.
             SELECT optional D3
               ASSIGN TO EXTERNAL D4 D5 D6
               ASSIGN TO DYNAMIC DISK D4 D5 D6
	       ORGANIZATION IS SEQUENTIAL
	       reserve no alternate area
	       padding character is ' '
	       record delimiter is standard-1
	       access mode is SEQUENTIAL
	       lock mode is manual with lock on multiple records
	       file status is n1 n2
               password is n3
	       record key is n4 = n5 n6 n7
	       alternate record key is n4 = n5 n6 n7 n8 = n9 n10 n11
	         with duplicates password is n12 suppress when all '1'
	       RESERVE  1  ALTERNATE AREA
	       sort status is n0.

           I-O-CONTROL.
             rerun on f1 every end of reel of f2
             rerun on f2 every 13 records of f3
             rerun on f3 every 14 clock-units
             rerun on f4 cond
             same record area for f1 f2 f3
             same sort area for f4 f5 f6
             same sort-merge area for f7 f8 f9
             multiple file tape contains f1 position 2 f2 f3
             multiple file tape contains f1 position 3 f2 f3
             multiple file tape contains f1 position 4 f2 f3
             apply write-only on f4 f5 f6
             apply core-index on f7 f8 f9
             apply record-overflow on f10 f11 f12
             apply reorg-criteria to dat on f13
             apply reorg-criteria to dat on f14.
      *
       DATA DIVISION.

         FILE SECTION.

           sd h.
	     01  DECKNAME.
           fd g
	     reports are r1 r2 r3.
	     01  DECKNAME.
           fd f
             is external
             is global
             block contains 1 to 2 records
             record contains 3
             record is varying in size from 5 to 6 characters depending
               on nn
             label record is standard
             label record is  n1 n2 n3
             value of i1 is '1' n4 is n5 n6 n7
             value of file-id is n8
             recording mode is s
             data records are r1 r2 r3
             linage is 9 lines with footing at 9 lines at top 10 lines
               at bottom 11
	     code-set is quark for i1 i2 i3.
	  01  DECKNAME.
	    02 VORNAME PIC X(12).
	      03 NACHNAME PIC X(12).

         WORKING-STORAGE SECTION.

	   77 I
	     redefines x
	     is external
	     is global
	     PIC is 99
	     usage is comp
	     occurs 3 times
	       ascending key is k1 k2 k3
	       descending key is k4 k5 k6
	       indexed by i1 i2 i3
	     occurs 4 to 5 times depending on nn
	       ascending key is k1 k2 k3
	       descending key is k4 k5 k6
	       indexed by i1 i2 i3
	     sign is trailing separate
	     sync left
	     just right
	     blank when zeroes
	     value is 3.14.
	   01 DECKNAME.
	     05 VORNAME  PIC X(12).
	     05 NACHNAME PIC X(12).
	   66 n0 renames n1.
	   66 n0 renames n1 through n2.
	   88 n9 values are 1 2 thru 3 4 when set to false 5.
	   78 c0 value is start of n0 + length of n1.

         local-STORAGE SECTION.
	   01 DECKNAME.
	     05 VORNAME  PIC X(12).
	     05 NACHNAME PIC X(12).

         linkage SECTION.
	   01 DECKNAME.
	     05 VORNAME  PIC X(12).
	     05 NACHNAME PIC X(12).

         communication SECTION.

	   CD n0 For Initial INPUT
	      Symbolic QUEUE		Is nn
	      Symbolic SUB-QUEUE-1	Is nn
	      Symbolic SUB-QUEUE-2	Is nn
	      Symbolic SUB-QUEUE-3	Is nn
	      MESSAGE DATE		Is nn
	      MESSAGE TIME		Is nn
	      Symbolic SOURCE		Is nn
	      TEXT LENGTH		Is nn
	      END KEY			Is nn
	      STATUS KEY		Is nn
	      Message COUNT		Is nn.
	   01 DECKNAME.
	     05 VORNAME  PIC X(12).
	     05 NACHNAME PIC X(12).

	   CD n0 For Initial INPUT nn nn nn nn nn nn
	      nn nn nn nn nn.

	   CD n0 For         OUTPUT
	      DESTINATION COUNT		Is nn
	      TEXT LENGTH		Is nn
	      STATUS KEY		Is nn
	      DESTINATION TABLE OCCURS 3 Times indexed by i1 i2 i3
	      ERROR KEY			Is nn
		       DESTINATION	Is nn
	      SYMBOLIC DESTINATION	Is nn.

	   CD n0 For Initial I-O
	      MESSAGE DATE		Is nn
	      MESSAGE TIME		Is nn
	      Symbolic TERMINAL		Is nn
	      TEXT LENGTH		Is nn
	      END KEY			Is nn
	      STATUS KEY		Is nn.

	   CD n0 For Initial I-O nn nn nn nn nn nn.

         report SECTION.
           rd r0.
           rd r1.
           rd r2
             is global
             with code 'abc'
             control is FINAL d1 d2 d3
             page limits are 2 lines
               heading 3
	       first detail 3
	       last detail 4
	       footing 5.

             01 nn
               line number is 12 on next page
	       next group is next page
	       type is control heading mm
	       usage is display.

	       02 mm
		 picture xxx
		 display
		 sign is leading separate
		 justified
		 blank when zero
		 line number is plus 22
		 column number is 33
		 source is i1
		 value is 'c'
		 sum i1 i2 i3 upon d1 d2 d3 reset on final
		 sum i4 i5 i6 upon d4 d5 d6 reset on d7
		 group indicate.

         screen SECTION.
           01 s1.
             02 filler
		BLANK SCREEN
		BLANK LINE
		BELL
		BEEP
		BLINK
		ERASE EOL
		ERASE EOS
		HIGHLIGHT
		LOWLIGHT
		GRID
		LEFTLINE
		OVERLINE
		REVERSE-VIDEO
		UNDERLINE
		SIZE Is identifier-or-integer
		LINE
		LINE Number Is plus identifier-or-integer
		COLUMN
		COLUMN Number Is - identifier-or-integer
		COL
		COL    Number Is + identifier-or-integer
		FOREGROUND-COLOR Is identifier-or-integer
		BACKGROUND-COLOR Is identifier-or-integer
		CONTROL Is identifier
		VALUE Is 'literal'
		'string'
		PICTURE Is XXX
		FROM identifier-or-literal
		TO identifier
		USING identifier
		USAGE Is DISPLAY
		         DISPLAY
		BLANK When ZERO
		           ZERO
		JUSTIFIED Right
		SIGN  Is TRAILING SEPARATE Character
		         LEADING  SEPARATE Character
		AUTO
		AUTO-SKIP
		SECURE
		NO-ECHO
		REQUIRED
		EMPTY-CHECK
		PROMPT
		PROMPT CHARACTER Is identifier-or-literal
		PROMPT           IS identifier-or-literal
		PROMPT              identifier
		PROMPT              'string'
		OCCURS 77 Times
		FULL
		LENGTH-CHECK
		ZERO-FILL.
      *
       PROCEDURE DIVISION mnemo
         using d1 d2 by reference d3 d4 by value d5 d6 d7.