📄 in7.cbl
字号:
IDENTIFICATION DIVISION. * ENVIRONMENT DIVISION. * DATA DIVISION. WORKING-STORAGE SECTION. 77 I. 01 DECKNAME. 77 J. COPY in70. * PROCEDURE DIVISION. MOVE I TO J. STOP RUN. c1. compute x = length of y compute x = function current-date compute x = function length (y) compute x = function factorial (y) compute x = function current-date (1:) compute x = function length (y) (0:7) compute x = function factorial (y) (2:) . c2. COPY in72 REPLACING alpha by beta 1-2 by 3-4 1-2 of 5-6 by 3-4 in 7-8 002 in 3 by 6 of 007 5 by 6 -5 by -6 +007 by +0066 3.14 by 2.71 a (all) by b (all) a in b by c of d a in b of c by c of d in e a in b of c (23) by c of d in e (x - 7) a (length of y:) by a (length of y:) a (function current-date:) by a (function current-date:) a (function length (y):) by a (function length (y):) a (function factorial (y):) by a (function factorial (y):) a (function current-date (1:):) by a (function current-date (1:):) a (function length (y) (0:7):) by a (function length (y) (0:7):) a (function factorial (y) (2:):) by a (function factorial (y) (2:):) 'abc' by 'xyz' "abc" by "xyz" x'ff' by X'EE' ==#VAL== by ==VALUE== * = BY = < BY < > BY > ( BY ( ) BY ) + BY + <> BY <> >= BY >= <= BY <= 66 BY 66 77 BY 77 78 BY 78 88 BY 88 - BY - : BY : & BY & ** BY ** * BY * / BY / * == = == BY == = == == < == BY == < == == > == BY == > == == ( == BY == ( == == ) == BY == ) == == + == BY == + == == <> == BY == <> == == >= == BY == >= == == <= == BY == <= == == 66 == BY == 66 == == 77 == BY == 77 == == 78 == BY == 78 == == 88 == BY == 88 == == - == BY == - == == : == BY == : == == & == BY == & == == ** == BY == ** == == * == BY == * == == / == BY == / == * ACCEPT BY ACCEPT ACCESS BY ACCESS ACTUAL BY ACTUAL ADD BY ADD ADDRESS BY ADDRESS ADVANCING BY ADVANCING AFTER BY AFTER ALL BY ALL ALPHABET BY ALPHABET ALPHABETIC BY ALPHABETIC ALPHABETIC-LOWER BY ALPHABETIC-LOWER ALPHABETIC-UPPER BY ALPHABETIC-UPPER ALPHANUMERIC BY ALPHANUMERIC ALPHANUMERIC-EDITED BY ALPHANUMERIC-EDITED ALSO BY ALSO ALTER BY ALTER ALTERNATE BY ALTERNATE AND BY AND ANY BY ANY APPLY BY APPLY ARE BY ARE AREA BY AREA AREAS BY AREAS AS BY AS ASCENDING BY ASCENDING ASSIGN BY ASSIGN AT BY AT AUTHOR BY AUTHOR AUTO BY AUTO AUTO-SKIP BY AUTO-SKIP AUTOMATIC BY AUTOMATIC BACKGROUND-COLOR BY BACKGROUND-COLOR BACKGROUND-COLOUR BY BACKGROUND-COLOUR BACKWARD BY BACKWARD BASIS BY BASIS BEEP BY BEEP BEFORE BY BEFORE BEGINNING BY BEGINNING BELL BY BELL BINARY BY BINARY BLANK BY BLANK BLINK BY BLINK BLOCK BY BLOCK BOTTOM BY BOTTOM BY BY BY C01 BY C01 C02 BY C02 C03 BY C03 C04 BY C04 C05 BY C05 C06 BY C06 C07 BY C07 C08 BY C08 C09 BY C09 C10 BY C10 C11 BY C11 C12 BY C12 CALL BY CALL CALL-CONVENTION BY CALL-CONVENTION CANCEL BY CANCEL CBL BY CBL CD BY CD CF BY CF CH BY CH CHAIN BY CHAIN CHAINING BY CHAINING CHANGED BY CHANGED CHARACTER BY CHARACTER CHARACTERS BY CHARACTERS CLASS BY CLASS CLOCK-UNITS BY CLOCK-UNITS CLOSE BY CLOSE COBOL BY COBOL CODE BY CODE CODE-SET BY CODE-SET COL BY COL COLLATING BY COLLATING COLUMN BY COLUMN COM-REG BY COM-REG COMMA BY COMMA COMMIT BY COMMIT COMMON BY COMMON COMMUNICATION BY COMMUNICATION COMP BY COMP COMP-0 BY COMP-0 COMP-1 BY COMP-1 COMP-2 BY COMP-2 COMP-3 BY COMP-3 COMP-4 BY COMP-4 COMP-5 BY COMP-5 COMP-6 BY COMP-6 COMP-X BY COMP-X COMPUTATIONAL BY COMPUTATIONAL COMPUTATIONAL-0 BY COMPUTATIONAL-0 COMPUTATIONAL-1 BY COMPUTATIONAL-1 COMPUTATIONAL-2 BY COMPUTATIONAL-2 COMPUTATIONAL-3 BY COMPUTATIONAL-3 COMPUTATIONAL-4 BY COMPUTATIONAL-4 COMPUTATIONAL-5 BY COMPUTATIONAL-5 COMPUTATIONAL-6 BY COMPUTATIONAL-6 COMPUTATIONAL-X BY COMPUTATIONAL-X COMPUTE BY COMPUTE CONFIGURATION BY CONFIGURATION CONSOLE BY CONSOLE CONTAINS BY CONTAINS CONTENT BY CONTENT CONTINUE BY CONTINUE CONTROL BY CONTROL CONTROLS BY CONTROLS CONVERT BY CONVERT CONVERTING BY CONVERTING COPY BY COPY CORE-INDEX BY CORE-INDEX CORR BY CORR CORRESPONDING BY CORRESPONDING COUNT BY COUNT CRT BY CRT CRT-UNDER BY CRT-UNDER CSP BY CSP CURRENCY BY CURRENCY CURRENT-DATE BY CURRENT-DATE CURSOR BY CURSOR CYCLE BY CYCLE CYL-INDEX BY CYL-INDEX CYL-OVERFLOW BY CYL-OVERFLOW DATA BY DATA DATE BY DATE DATE-COMPILED BY DATE-COMPILED DATE-WRITTEN BY DATE-WRITTEN DAY BY DAY DAY-OF-WEEK BY DAY-OF-WEEK DBCS BY DBCS DE BY DE DEBUG BY DEBUG DEBUG-CONTENTS BY DEBUG-CONTENTS DEBUG-ITEM BY DEBUG-ITEM DEBUG-LINE BY DEBUG-LINE DEBUG-NAME BY DEBUG-NAME DEBUG-SUB-1 BY DEBUG-SUB-1 DEBUG-SUB-2 BY DEBUG-SUB-2 DEBUG-SUB-3 BY DEBUG-SUB-3 DEBUGGING BY DEBUGGING DECIMAL-POINT BY DECIMAL-POINT DECLARATIVES BY DECLARATIVES DELETE BY DELETE DELIMITED BY DELIMITED DELIMITER BY DELIMITER DEPENDING BY DEPENDING DESCENDING BY DESCENDING DESTINATION BY DESTINATION DETAIL BY DETAIL DISABLE BY DISABLE DISK BY DISK DISP BY DISP DISPLAY BY DISPLAY DISPLAY-1 BY DISPLAY-1 DISPLAY-ST BY DISPLAY-ST DIVIDE BY DIVIDE DIVISION BY DIVISION DOWN BY DOWN DUPLICATES BY DUPLICATES DYNAMIC BY DYNAMIC ECHO BY ECHO EGCS BY EGCS EGI BY EGI * EJECT BY EJECT ELSE BY ELSE EMI BY EMI EMPTY-CHECK BY EMPTY-CHECK ENABLE BY ENABLE END BY END END-ACCEPT BY END-ACCEPT END-ADD BY END-ADD END-CALL BY END-CALL END-CHAIN BY END-CHAIN END-COMPUTE BY END-COMPUTE END-DELETE BY END-DELETE END-DISPLAY BY END-DISPLAY END-DIVIDE BY END-DIVIDE END-EVALUATE BY END-EVALUATE END-IF BY END-IF END-INVOKE BY END-INVOKE END-MULTIPLY BY END-MULTIPLY END-OF-PAGE BY END-OF-PAGE END-PERFORM BY END-PERFORM END-READ BY END-READ END-RECEIVE BY END-RECEIVE END-RETURN BY END-RETURN END-REWRITE BY END-REWRITE END-SEARCH BY END-SEARCH END-START BY END-START END-STRING BY END-STRING END-SUBTRACT BY END-SUBTRACT END-UNSTRING BY END-UNSTRING END-WRITE BY END-WRITE ENDING BY ENDING ENTER BY ENTER ENTRY BY ENTRY ENVIRONMENT BY ENVIRONMENT EOL BY EOL EOP BY EOP EOS BY EOS EQUAL BY EQUAL EQUALS BY EQUALS ERASE BY ERASE ERROR BY ERROR ESCAPE BY ESCAPE ESI BY ESI EVALUATE BY EVALUATE EVERY BY EVERY EXAMINE BY EXAMINE EXCEEDS BY EXCEEDS EXCEPTION BY EXCEPTION EXCESS-3 BY EXCESS-3 EXCLUSIVE BY EXCLUSIVE EXEC BY EXEC EXECUTE BY EXECUTE EXHIBIT BY EXHIBIT EXIT BY EXIT EXTEND BY EXTEND EXTENDED-SEARCH BY EXTENDED-SEARCH EXTERNAL BY EXTERNAL FACTORY BY FACTORY FALSE BY FALSE FD BY FD FH-FCD BY FH-FCD FH-KEYDEF BY FH-KEYDEF FILE BY FILE FILE-CONTROL BY FILE-CONTROL FILE-ID BY FILE-ID FILE-LIMIT BY FILE-LIMIT FILE-LIMITS BY FILE-LIMITS FILLER BY FILLER FINAL BY FINAL FIRST BY FIRST FIXED BY FIXED FOOTING BY FOOTING FOR BY FOR FOREGROUND-COLOR BY FOREGROUND-COLOR FOREGROUND-COLOUR BY FOREGROUND-COLOUR FORMFEED BY FORMFEED FROM BY FROM FULL BY FULL FUNCTION BY FUNCTION GENERATE BY GENERATE GIVING BY GIVING GLOBAL BY GLOBAL GO BY GO GOBACK BY GOBACK GREATER BY GREATER GRID BY GRID GROUP BY GROUP HEADING BY HEADING HIGH BY HIGH HIGH-VALUE BY HIGH-VALUE HIGH-VALUES BY HIGH-VALUES HIGHLIGHT BY HIGHLIGHT I-O BY I-O I-O-CONTROL BY I-O-CONTROL ID BY ID IDENTIFICATION BY IDENTIFICATION IF BY IF IGNORE BY IGNORE IN BY IN INDEX BY INDEX INDEXED BY INDEXED INDICATE BY INDICATE INHERITING BY INHERITING INITIAL BY INITIAL INITIALIZE BY INITIALIZE INITIATE BY INITIATE INPUT BY INPUT INPUT-OUTPUT BY INPUT-OUTPUT INSERT BY INSERT INSPECT BY INSPECT INSTALLATION BY INSTALLATION INTO BY INTO INVALID BY INVALID INVOKE BY INVOKE IS BY IS JAPANESE BY JAPANESE JUST BY JUST JUSTIFIED BY JUSTIFIED KANJI BY KANJI KEPT BY KEPT KEY BY KEY KEYBOARD BY KEYBOARD LABEL BY LABEL LAST BY LAST LEADING BY LEADING LEAVE BY LEAVE LEFT BY LEFT LEFT-JUSTIFY BY LEFT-JUSTIFY LEFTLINE BY LEFTLINE LENGTH BY LENGTH LENGTH-CHECK BY LENGTH-CHECK LESS BY LESS LIMIT BY LIMIT LIMITS BY LIMITS LIN BY LIN LINAGE BY LINAGE LINAGE-COUNTER BY LINAGE-COUNTER LINE BY LINE LINE-COUNTER BY LINE-COUNTER LINES BY LINES LINKAGE BY LINKAGE LOCAL-STORAGE BY LOCAL-STORAGE LOCK BY LOCK LOCKING BY LOCKING LOW BY LOW LOW-VALUE BY LOW-VALUE LOW-VALUES BY LOW-VALUES LOWER BY LOWER LOWLIGHT BY LOWLIGHT MANUAL BY MANUAL MASTER-INDEX BY MASTER-INDEX MEMORY BY MEMORY MERGE BY MERGE MESSAGE BY MESSAGE METHOD BY METHOD MODE BY MODE MODULES BY MODULES MORE-LABELS BY MORE-LABELS MOVE BY MOVE MULTIPLE BY MULTIPLE MULTIPLY BY MULTIPLY NAME BY NAME NAMED BY NAMED NATIONAL BY NATIONAL NATIONAL-EDITED BY NATIONAL-EDITED NATIVE BY NATIVE NCHAR BY NCHAR NEGATIVE BY NEGATIVE NEXT BY NEXT NO BY NO NO-ECHO BY NO-ECHO NOMINAL BY NOMINAL NOT BY NOT * NOTE BY NOTE NSTD-REELS BY NSTD-REELS NULL BY NULL NULLS BY NULLS NUMBER BY NUMBER NUMERIC BY NUMERIC NUMERIC-EDITED BY NUMERIC-EDITED OBJECT BY OBJECT OBJECT-COMPUTER BY OBJECT-COMPUTER OBJECT-STORAGE BY OBJECT-STORAGE OCCURS BY OCCURS OF BY OF OFF BY OFF OMITTED BY OMITTED ON BY ON OOSTACKPTR BY OOSTACKPTR OPEN BY OPEN OPTIONAL BY OPTIONAL OR BY OR ORDER BY ORDER ORGANIZATION BY ORGANIZATION OTHER BY OTHER OTHERWISE BY OTHERWISE OUTPUT BY OUTPUT OVERFLOW BY OVERFLOW OVERLINE BY OVERLINE PACKED-DECIMAL BY PACKED-DECIMAL PADDING BY PADDING PAGE BY PAGE PAGE-COUNTER BY PAGE-COUNTER PARAGRAPH BY PARAGRAPH PASSWORD BY PASSWORD PERFORM BY PERFORM PF BY PF⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -