| 1 |
ACCEPT |
△ |
FROM COMMAND-LINEのみ(KIN06CLD,KIN09CSV)。FROM DATE/TIME/DAY未使用 |
| 2 |
ACCESS |
△ |
ACCESS MODE IS SEQUENTIAL(全プログラムのSELECT)。RANDOM/DYNAMIC未使用 |
| 3 |
ADD |
◎ |
ADD TO/GIVING/CORRESPONDING/ROUNDED 全メインプログラム |
| 4 |
AFTER |
△ |
WRITE AFTER ADVANCING(KIN09CSV)、PERFORM TEST AFTER(ZAN06UPD)のみ。INSPECT AFTER未使用 |
| 5 |
ALL |
△ |
SEARCH ALL(KIN03EXP,ZAN03CHK)、INSPECT REPLACING ALL(KIN08DBU,KIN09CSV)。FIGURATIVE CONSTANT(VALUE ALL)未使用 |
| 6 |
ALPHABETIC |
△ |
IF NOT ALPHABETIC(KYU01CVT, KYU04CHK) |
| 7 |
ALPHABETIC-UPPER |
◎ |
JIN01KNS(半角カナ大文字チェック: IF NOT ALPHABETIC-UPPER) |
| 8 |
ALSO |
◎ |
EVALUATE ALSO(KYU04CAL: 勤怠区分×手当種別の複合分岐) |
| 9 |
AND |
◎ |
条件式AND 全プログラム |
| 10 |
ANY |
△ |
EVALUATE ALSO ANY(KYU04CAL: WHEN 'LATE' ALSO ANY)。SEARCH ANY未使用 |
| 11 |
APPLY |
× |
I-O-CONTROL段落未使用 |
| 12 |
ASCENDING |
◎ |
OCCURS ASCENDING KEY(KIN01INP,KIN03EXP,KIN06CLD,SUB04CHK,ZAN03CHK,JIN02SKL)、SEARCH ALL |
| 13 |
ASSIGN |
◎ |
SELECT ASSIGN TO 全プログラム |
| 14 |
AT |
△ |
READ AT END、SEARCH AT END使用。WRITE AT END-OF-PAGE(JIN04PRT: LINAGE制御ページヘッダー) |
| 15 |
AUTHOR |
× |
IDENTIFICATION DIVISION 段落未使用(ヘッダコメントで代替) |
| 16 |
BINARY |
△ |
PIC 9(002) BINARY(JIN02SKL: マスタレベル定義) |
| 17 |
BLOCK |
◎ |
FD BLOCK CONTAINS 全ファイル入出力PGM |
| 18 |
BY |
◎ |
PERFORM VARYING BY、MULTIPLY BY、DIVIDE BY使用。CALL BY CONTENT(JIN05UPD: 3400DBERRSOR) |
| 19 |
CALL |
△ |
CALL USING使用。ON EXCEPTION(JIN08TST: 1000ITTTST SUB01DAT呼出)。NOT ON EXCEPTION/RETURNING未使用 |
| 20 |
CHARACTER |
△ |
PADDING CHARACTER IS(JIN01KNS, JIN02SKL, JIN03RAN, JIN09RPT, KYU01CVT 等のSELECT)。OBJECT-COMPUTER MEMORY SIZE未使用 |
| 21 |
CHARACTERS |
× |
INSPECT CHARACTERS未使用(INSPECTはTALLYING/REPLACING/CONVERTINGのみ) |
| 22 |
CLOSE |
◎ |
CLOSE(単純CLOSE)。WITH LOCK(JIN04PRT, JIN05UPD) |
| 23 |
COMP |
◎ |
USAGE COMP カウンタ/フラグ |
| 24 |
COMP-3 |
◎ |
USAGE COMP-3 集計/金額項目 |
| 25 |
COMP-4 |
△ |
PIC 9(004) COMP-4 (JIN03RAN: バイナリカウンタ定義 + ADD 1 TO CUN-COMP4) |
| 26 |
COMPUTE |
◎ |
COMPUTE ROUNDED/SIZE ERROR(ZAN01,ZAN03,ZAN05,KIN03,KIN06,SUB05) |
| 27 |
CONDITION |
× |
未使用 |
| 28 |
CONFIGURATION |
◎ |
CONFIGURATION SECTION 全プログラム |
| 29 |
CONTAINS |
◎ |
FD BLOCK CONTAINS / RECORD CONTAINS |
| 30 |
CONTINUE |
◎ |
SEARCH AT END、EVALUATE WHEN OTHER(全プログラム) |
| 31 |
CONVERTING |
◎ |
INSPECT CONVERTING X"0D"/X"0A" TO SPACE(KYU01CVT: 引用符内改行→SPACE変換) |
| 32 |
COPY |
◎ |
COPY 全プログラム(C書式取込み、REPLACING含む) |
| 33 |
CORR |
× |
MOVE CORRESPONDING(完全形)使用(JIN03RAN: WS-CORR-SRC→WS-CORR-DST)。CORR 省略形は未使用 |
| 34 |
COUNT |
◎ |
UNSTRING COUNT IN(KYU01CVT: CSV分解の項目数カウント) |
| 35 |
CURSOR |
◎ |
DECLARE/OPEN/FETCH/CLOSE CURSOR(KIN02UPD,KIN03EXP,KIN06CLD,KIN09CSV) |
| 36 |
DATA |
◎ |
DATA DIVISION 全プログラム |
| 37 |
DATE |
△ |
ACCEPT FROM DATE(JIN04PRT: 1000ITTSOR) |
| 38 |
DATE-COMPILED |
× |
IDENTIFICATION DIVISION 段落未使用 |
| 39 |
DATE-WRITTEN |
× |
IDENTIFICATION DIVISION 段落未使用 |
| 40 |
DECLARATIVES |
◎ |
USE AFTER ERROR PROCEDURE(KYU01CVT: R01/W01/W02ファイルエラー時ABEND) |
| 41 |
DELETE |
△ |
EXEC SQL DELETE(KIN02UPD,KIN08DBU)。COBOL DELETE文(SEQ FILE)未使用 |
| 42 |
DELIMITED |
◎ |
STRING/UNSTRING DELIMITED BY |
| 43 |
DELIMITER |
× |
UNSTRING DELIMITER IN未使用 |
| 44 |
DEPENDING |
◎ |
OCCURS DEPENDING ON(KIN03EXP,ZAN03CHK)、GO TO DEPENDING ON(KIN08DBU) |
| 45 |
DESCENDING |
△ |
OCCURS DESCENDING KEY IS (JIN03RAN: 内部表3要素降順) |
| 46 |
DISPLAY |
△ |
DISPLAY文(MSG出力)4プログラム。USAGE DISPLAY句未使用。UPON(JIN04PRT, JIN05UPD, JIN08TST)、WITH NO ADVANCING(JIN04PRT, JIN05UPD) |
| 47 |
DISPLAY-1 |
× |
未使用 |
| 48 |
DIVIDE |
◎ |
DIVIDE INTO/BY/GIVING/REMAINDER/ROUNDED(ZAN01,ZAN05,SUB05,KIN07) |
| 49 |
DIVISION |
◎ |
IDENTIFICATION/ENVIRONMENT/DATA/PROCEDURE DIVISION 全プログラム |
| 50 |
DOWN |
× |
未使用 |
| 51 |
DYNAMIC |
× |
未使用 |
| 52 |
EJECT |
× |
EJECT ディレクティブ未使用(*EJECT コメント行のみ) |
| 53 |
ELSE |
◎ |
IF ELSE END-IF 全プログラム |
| 54 |
END |
◎ |
END-IF、END-READ、END-PERFORM等スコープターミネータ 全プログラム |
| 55 |
END-ADD |
◎ |
JIN02SKL(ADD END-ADD) |
| 56 |
END-CALL |
◎ |
END-CALL(CALL使用PGM) |
| 57 |
END-COMPUTE |
◎ |
END-COMPUTE(COMPUTE使用PGM) |
| 58 |
END-DIVIDE |
◎ |
JIN02SKL(DIVIDE GIVING REMAINDER END-DIVIDE) |
| 59 |
END-EVALUATE |
◎ |
END-EVALUATE(EVALUATE使用11PGM) |
| 60 |
END-EXEC |
◎ |
END-EXEC(EXEC SQL使用5PGM) |
| 61 |
END-IF |
◎ |
END-IF 全プログラム |
| 62 |
END-PERFORM |
◎ |
END-PERFORM 全プログラム |
| 63 |
END-READ |
◎ |
END-READ(READ使用PGM) |
| 64 |
END-SEARCH |
◎ |
END-SEARCH(SEARCH使用PGM) |
| 65 |
END-STRING |
◎ |
END-STRING(STRING使用PGM) |
| 66 |
END-SUBTRACT |
◎ |
JIN02SKL(SUBTRACT END-SUBTRACT) |
| 67 |
END-UNSTRING |
◎ |
END-UNSTRING(UNSTRING使用PGM) |
| 68 |
ENVIRONMENT |
◎ |
ENVIRONMENT DIVISION 全プログラム |
| 69 |
ERROR |
◎ |
ON SIZE ERROR(COMPUTE:ZAN01,ZAN03,ZAN05) |
| 70 |
EVALUATE |
◎ |
EVALUATE ALSO/WHEN/WHEN OTHER(KYU04CAL: 勤怠区分×手当種別) |
| 71 |
EXEC |
△ |
EXEC SQL使用。EXEC CICS未使用 |
| 72 |
EXCEPTION |
◎ |
CALL ON EXCEPTION(JIN05UPD/JIN08TST: 1000ITTSOR SUB01DAT呼出) |
| 73 |
EXECUTE |
× |
未使用 |
| 74 |
EXIT |
△ |
EXIT(段落終端)全プログラム、EXIT PERFORM(KIN06CLD,KIN07DAI,KIN08DBU)、EXIT SECTION(KIN08DBU)、EXIT PROGRAM(JIN07SUB)。EXIT PARAGRAPH/EXIT METHOD未使用 |
| 75 |
FALSE |
◎ |
SET condition TO FALSE(JIN09RPT: SET WRK-FIRST-FLG-Y TO FALSE) |
| 76 |
FD |
◎ |
FILE DESCRIPTION 全ファイル入出力PGM |
| 77 |
FILE |
◎ |
FILE SECTION、FILE-CONTROL 全プログラム |
| 78 |
FILE-CONTROL |
◎ |
FILE-CONTROL SELECT ASSIGN 全プログラム |
| 79 |
FILLER |
◎ |
FILLER 全プログラム(DATA DIVISION) |
| 80 |
FIRST |
× |
INSPECT FIRST未使用(WRK-FIRST-FLG 等の変数名のみ) |
| 81 |
FOR |
◎ |
PERFORM VARYING...FOR(KIN06CLD,KIN08DBU,ZAN06UPD) |
| 82 |
FROM |
◎ |
STRING FROM、PERFORM VARYING FROM、ACCEPT FROM |
| 83 |
GET |
× |
未使用 |
| 84 |
GIVING |
◎ |
DIVIDE/MULTIPLY GIVING(ZAN01,ZAN05,SUB05,KIN07,ZAN06) |
| 85 |
GO |
◎ |
GO TO(KIN01INP,SUB04CHK等)、GO TO DEPENDING ON(KIN08DBU) |
| 86 |
GOBACK |
◎ |
GOBACK 全20プログラム |
| 87 |
GREATER |
◎ |
JIN02SKL(IF TBL-EMP-COUNT IS GREATER THAN ZERO) |
| 88 |
HIGH-VALUE |
◎ |
MOVE HIGH-VALUE(ZAN03CHK,ZAN04MAT,ZAN05CAL) |
| 89 |
I-O-CONTROL |
◎ |
I-O-CONTROL段落(JIN09RPT: 空段落、SHA08SRT/JIN06SRT: SAME SORT AREA 使用) |
| 90 |
ID |
× |
PROGRAM-ID以外のID未使用 |
| 91 |
IDENTIFICATION |
◎ |
IDENTIFICATION DIVISION 全プログラム |
| 92 |
IF |
◎ |
IF ELSE END-IF 全プログラム |
| 93 |
IN |
◎ |
INSPECT TALLYING IN、SEARCH IN、COPY IN |
| 94 |
INDEXED |
◎ |
OCCURS INDEXED BY(KIN01INP,KIN03EXP,KIN06CLD,ZAN03CHK) |
| 95 |
INITIAL |
△ |
JIN01KNS(PROGRAM-ID IS INITIAL: サブPGMコール時の初期化属性) |
| 96 |
INITIALIZE |
△ |
INITIALIZE(基本形)全プログラム。REPLACING(JIN05UPD: NUMERIC/ALPHANUMERIC指定) |
| 97 |
INPUT |
◎ |
OPEN INPUT、INPUT-OUTPUT SECTION |
| 98 |
INPUT-OUTPUT |
◎ |
INPUT-OUTPUT SECTION 全プログラム |
| 99 |
INSERT |
△ |
EXEC SQL INSERT(KIN02UPD,KIN08DBU)。COBOL INSERT(コンパイラ指示文)未使用 |
| 100 |
INSPECT |
◎ |
INSPECT TALLYING/REPLACING/FIRST/CHARACTERS(ZAN01CHK,KIN04CHK,SUB04CHK,KIN08DBU,KIN09CSV) |
| 101 |
INTO |
◎ |
READ INTO、STRING INTO、UNSTRING INTO、SQL INTO |
| 102 |
INVALID |
× |
COBOL INVALID KEY未使用 |
| 103 |
IS |
◎ |
条件式IS、ACCESS MODE IS、LABEL RECORD IS等 全プログラム |
| 104 |
KEY |
◎ |
ASCENDING/DESCENDING KEY、SEARCH KEY、OCCURS KEY |
| 105 |
LABEL |
◎ |
FD LABEL RECORDS STANDARD |
| 106 |
LENGTH |
◎ |
LENGTH OF(SUB04CHK) |
| 107 |
LINKAGE |
◎ |
LINKAGE SECTION サブプログラム(SUB01-05)+CALL有PGM |
| 108 |
LOW-VALUE |
△ |
LOW-VALUES(複数形)使用(KIN08DBU, SHA01CVT, SHA02MNC, SHA03MNP)。単数形LOW-VALUE未使用 |
| 109 |
MODE |
◎ |
RECORDING MODE F/V |
| 110 |
MOVE |
◎ |
MOVE TO 全20プログラム |
| 111 |
MULTIPLY |
◎ |
MULTIPLY BY/GIVING/ROUNDED(KIN07DAI,ZAN06UPD) |
| 112 |
NEXT |
◎ |
NEXT SENTENCE(JIN09RPT: レベル判定 ELSE 内) |
| 113 |
NOT |
◎ |
NOT AT END、NOT ON ERROR、IF NOT 全プログラム |
| 114 |
NUMERIC |
◎ |
IF NUMERIC(KIN06CLD,SUB04CHK) |
| 115 |
OBJECT-COMPUTER |
◎ |
OBJECT-COMPUTER 全プログラム |
| 116 |
OCCURS |
◎ |
OCCURS TIMES/DEPENDING ON/INDEXED BY(JIN02SKL: ASCENDING KEY + DEPENDING ON) |
| 117 |
OF |
◎ |
データ参照修飾、LENGTH OF(全プログラム) |
| 118 |
OMITTED |
◎ |
CALL USING ... OMITTED(JIN08TST: 2000CALTST)、IS OMITTED 判定(JIN07SUB: 1000FNDSOR) |
| 119 |
ON |
◎ |
ON SIZE ERROR、OCCURS DEPENDING ON |
| 120 |
OPEN |
◎ |
OPEN INPUT/OUTPUT 全ファイル入出力PGM |
| 121 |
OPTIONS |
× |
CBL/PROCESS文未使用 |
| 122 |
OR |
◎ |
条件式OR、UNSTRING DELIMITED BY OR |
| 123 |
ORDER |
△ |
EXEC SQL ORDER BY(KIN03EXP, KIN06CLD, KIN09CSV 等)。COBOL SORT文のORDER句は未使用 |
| 124 |
ORGANIZATION |
△ |
ORGANIZATION IS SEQUENTIAL(全プログラムのSELECT)。INDEXED/RELATIVE未使用 |
| 125 |
OTHER |
◎ |
EVALUATE WHEN OTHER |
| 126 |
OUTPUT |
◎ |
OPEN OUTPUT |
| 127 |
PACKED-DECIMAL |
× |
未使用(集計・金額項目は COMP-3 / BINARY を使用) |
| 128 |
PAGE |
◎ |
FD LINAGE IS(KYU08PRI: 66行ページ制御)、WRITE BEFORE/AFTER ADVANCING PAGE |
| 129 |
PAGE-COUNTER |
× |
未使用(KYU08PRIはWORKING-STORAGEのWRK-PAGE-COUNTERで代替。特殊レジスタPAGE-COUNTERは不使用) |
| 130 |
PERFORM |
◎ |
PERFORM(外部段落)/UNTIL/VARYING/THRU/TEST AFTER使用。JIN09RPTでVARYING多重ループ(社員×明細×内部表20) |
| 131 |
PIC |
◎ |
PICTURE句 全プログラム |
| 132 |
POINTER |
◎ |
STRING WITH POINTER(KIN09CSV) |
| 133 |
PROCEDURE |
◎ |
PROCEDURE DIVISION 全プログラム |
| 134 |
PROGRAM-ID |
◎ |
PROGRAM-ID 全プログラム |
| 135 |
RANDOM |
× |
未使用 |
| 136 |
READ |
△ |
READ INTO AT END使用。KEY IS/NEXT/PREVIOUS/WITH WAIT/LOCK未使用 |
| 137 |
RECORD |
◎ |
FD RECORD CONTAINS、RECORDING MODE |
| 138 |
RECORDING |
◎ |
FD RECORDING MODE F/V |
| 139 |
RECORDS |
× |
FD LABEL RECORD IS STANDARD(単数形)。RECORDS 複数形は未使用 |
| 140 |
REDEFINES |
◎ |
REDEFINES(各種PGM WORKING-STORAGE) |
| 141 |
REMAINDER |
◎ |
DIVIDE GIVING REMAINDER(ZAN01,ZAN05,SUB05,KIN07) |
| 142 |
REMOVAL |
× |
CLOSE FOR REMOVAL未使用 |
| 143 |
REPLACING |
△ |
COPY REPLACING(全プログラム)、INSPECT REPLACING(KIN08DBU,KIN09CSV)。INITIALIZE REPLACING未使用 |
| 144 |
RERUN |
× |
I-O-CONTROL段落未使用 |
| 145 |
RETURN-CODE |
◎ |
JIN01KNS(MOVE 4 TO RETURN-CODE: エラー時リターンコード設定) |
| 146 |
ROUNDED |
◎ |
COMPUTE ROUNDED、DIVIDE/MULTIPLY ROUNDED(ZAN01,ZAN03,ZAN05,KIN03,KIN06,SUB05,ZAN06) |
| 147 |
RUN |
△ |
STOP RUNのみ(SUB03END)。STOP literal未使用 |
| 148 |
SEARCH |
◎ |
SEARCH(KIN01INP)、SEARCH ALL(KIN03EXP,ZAN03CHK,JIN02SKL)、VARYING/AT END/WHEN全て使用 |
| 149 |
SECTION |
◎ |
CONFIGURATION/INPUT-OUTPUT/WORKING-STORAGE/LINKAGE/PROCEDURE SECTION |
| 150 |
SELECT |
◎ |
SELECT ASSIGN(FILE-CONTROL)全プログラム、SQL SELECT |
| 151 |
SENTENCE |
◎ |
NEXT SENTENCE(JIN09RPT: レベル判定 ELSE 内) |
| 152 |
SET |
◎ |
SET TO TRUE(KIN08DBU,ZAN05CAL)、SET TO FALSE(JIN09RPT: 条件名) |
| 153 |
SHIFT-IN |
× |
未使用 |
| 154 |
SHIFT-OUT |
× |
未使用 |
| 155 |
SIZE |
◎ |
ON SIZE ERROR(COMPUTE:ZAN01CHK,ZAN03CHK,ZAN05CAL) |
| 156 |
SKIP2 |
× |
未使用(ソース行 *SKIP2 はコメントであり SKIP2 ディレクティブではない。W-1 で◎主張を是正) |
| 157 |
SOURCE-COMPUTER |
◎ |
SOURCE-COMPUTER IBM-ZSERIES 全プログラム |
| 158 |
SPACE |
◎ |
SPACE/SPACES INITIALIZE後、VALUE、MOVE、条件比較 |
| 159 |
SPACES |
◎ |
SPACES(SPACEと同義、INSPECT REPLACING ALL等) |
| 160 |
SQL |
◎ |
EXEC SQL(KIN02UPD,KIN03EXP,KIN08DBU,KIN09CSV,ZAN06UPD) |
| 161 |
STANDARD |
◎ |
FD LABEL RECORDS STANDARD |
| 162 |
STOP |
◎ |
STOP RUN(SUB03END)、STOP literal(JIN04PRT: 9000ERRSOR) |
| 163 |
STRING |
◎ |
STRING DELIMITED BY INTO使用。ON OVERFLOW(JIN04PRT, JIN05UPD: 全STRING箇所) |
| 164 |
SUBTRACT |
◎ |
SUBTRACT FROM/GIVING/ROUNDED(KIN07DAI,ZAN06UPD) |
| 165 |
TABLE |
× |
SEARCH TABLE参照(変数名にはHOLIDAY-TABLE等あるが、TABLE予約語としては未使用) |
| 166 |
TALLYING |
◎ |
INSPECT TALLYING、UNSTRING TALLYING IN(ZAN01CHK,KIN04CHK,SUB04CHK,KIN08DBU) |
| 167 |
TEST |
◎ |
PERFORM TEST AFTER(ZAN06UPD)。TEST BEFORE未使用だが単一形式で◎ |
| 168 |
THEN |
◎ |
IF THEN(SUB04CHK,SUB05TIMで明示的THEN使用) |
| 169 |
THRU |
△ |
PERFORM THRU(KIN03EXP,KIN08DBU)。VALUE THRU(JIN05UPD: 88-level 'D' THRU 'G') |
| 170 |
TIME |
△ |
ACCEPT FROM TIME(JIN04PRT: 1000ITTSOR) |
| 171 |
TIMES |
◎ |
OCCURS TIMES(KIN01INP,KIN03EXP,KIN06CLD,KIN08DBU,ZAN03CHK) |
| 172 |
TO |
◎ |
MOVE TO、ADD TO、GO TO 全プログラム |
| 173 |
TRUE |
◎ |
EVALUATE TRUE、SET condition TO TRUE |
| 174 |
TYPE |
× |
変数名(WRK-ERR-TYPE等)はあるがTYPE予約語としては未使用 |
| 175 |
UNSTRING |
◎ |
UNSTRING DELIMITED BY INTO(KIN01INP,KIN04CHK,ZAN01CHK) |
| 176 |
UNTIL |
◎ |
PERFORM UNTIL 全プログラム |
| 177 |
UP |
× |
未使用 |
| 178 |
UPON |
△ |
DISPLAY UPON(JIN04PRT, JIN05UPD: UPON CONSOLE) |
| 179 |
USAGE |
◎ |
USAGE COMP/COMP-3 |
| 180 |
USE |
◎ |
USE AFTER ERROR PROCEDURE(KYU01CVT: DECLARATIVESでファイルエラー捕捉) |
| 181 |
USING |
◎ |
PROCEDURE DIVISION USING、CALL USING 全プログラム |
| 182 |
VALUE |
◎ |
VALUE 全プログラム(88条件名、初期値) |
| 183 |
VALUES |
△ |
EXEC SQL INSERT ... VALUES(KIN02UPD, KIN08DBU 等)。COBOL VALUE句複数指定は未使用 |
| 184 |
VARYING |
◎ |
PERFORM VARYING(ZAN06UPD,KIN06CLD,KIN08DBU)、SEARCH VARYING(KIN01INP) |
| 185 |
WHEN |
◎ |
EVALUATE WHEN、SEARCH WHEN |
| 186 |
WHEN-COMPILED |
◎ |
FUNCTION WHEN-COMPILED 全15プログラム |
| 187 |
WITH |
◎ |
STRING WITH POINTER、WRITE WITH ADVANCING、INITIALIZE WITH FILLERは未使用だが他で◎ |
| 188 |
WORKING-STORAGE |
◎ |
WORKING-STORAGE SECTION 全プログラム |
| 189 |
WRITE |
◎ |
WRITE FROM/BEFORE ADVANCING/AFTER ADVANCING/END-OF-PAGE(KYU08PRI: 給与明細印刷のLINAGE制御) |
| 190 |
WRITE-ONLY |
× |
I-O-CONTROL段落未使用 |
| 191 |
ZERO |
◎ |
ZERO/ZEROS VALUE、MOVE ZERO 全プログラム |
| 192 |
ZEROS |
◎ |
ZEROS(ZEROと同義、KIN08DBU LOW-VALUES) |
| 193 |
ALTER |
× |
非推奨 |
| 194 |
CANCEL |
◎ |
CANCEL 'SUB02MSG'(JIN09RPT: 4000STPSOR) |
| 195 |
ENTRY |
△ |
KYU09MRG: ENTRY 'KYU09ENT' USING ENTRYPAR(代替エントリポイント定義) |
| 196 |
MERGE |
◎ |
COBOL MERGE文(KYU09MRG: SALARY-NET + BONUS-DATA を社員番号昇順結合) |
| 197 |
RELEASE |
◎ |
COBOL RELEASE文(JIN06SRT: 2110READSOR INPUT PROCEDURE内でSORTレコード送出) |
| 198 |
RETURN |
◎ |
COBOL RETURN文(KYU09MRG: MERGE OUTPUT、JIN06SRT: 2120OUTPUSOR SORT OUTPUT PROCEDURE) |
| 199 |
REWRITE |
× |
VSAM非対応 |
| 200 |
SORT |
◎ |
COBOL SORT文(JIN06SRT: 2000MAJSOR INPUT/OUTPUT PROCEDURE + ON ASCENDING KEY) |
| 201 |
START |
× |
順次読込のみ |
| 202 |
SAME |
△ |
SAME SORT AREA(SHA08SRT/JIN06SRT: SORTWORK)。SAME RECORD未使用 |
| 203 |
FUNCTION |
◎ |
FUNCTION MOD/WHEN-COMPILED/NUMVAL/INTEGER-OF-DATE/MIN/MAX/TRIM/LENGTH(KIN03EXP,KIN06CLD,KIN08DBU,KIN09CSV,JIN01KNS) |
| 204 |
BEFORE |
◎ |
WRITE BEFORE ADVANCING PAGE/1 LINE(KYU08PRI: 給与明細印刷の改ページ制御) |
| 205 |
ADDRESS |
△ |
MOVE ADDRESS OF(JIN07SUB: 0000MAINSOR)。SET ADDRESS OF未使用 |