您可以使用CALLentry_name指令來動態變更程式流程。 您可以將參數傳遞至被呼叫的模組。 CALL遵循與 COBOL 語言內呼叫相同的規則。 不支援 COBOLON OVERFLOW和ON EXCEPTION詞組,因此不支援END-CALL。 僅支援對個別編譯程式的呼叫; 此z/OS Debugger指令無法呼叫巢狀程式 (它們當然可以由GOTO或STEP對已編譯的CALL進行啟動...
ENTRY 'DLITCBL' USING IOTP-PCB. CALL 'CBLTDLI' USING GU IOTP-PCB INPUT-AREA. IF IOTP-STATUS = END-OF-MSG DISPLAY 'IOTP-STATUS = END-OF-MSG' END-IF. IF IOTP-STATUS = QUEUE-EMPTY DISPLAY 'IOTP-STATUS = QUEUE-EMPTY' END-IF. IF IOTP-STATUS NOT = ' ' DISPLAY 'CALL FAILE...
使用此规则来标记 ENTRY 语句。 避免使用 EXIT PROGRAM 语句 使用此规则来标记 EXIT PROGRAM 语句。 避免使用 GO TO 语句 使用此规则来标记所有 GO TO 语句。 比较规则避免使用 GO TO 语句,引用退出段的 GO TO 语句除外。 避免使用未引用退出段的 GO TO 语句 使用此规则来标记所有 GO TO 语句,将控制权转移...
entry “SPP SEVICE NAME”;-另外将SUP或 SPP常驻OPENTP下还需以下内容 二一廿一廿一定義77 (文件名不带任何后缀,并且不超过8个字母)SPP 二一廿一廿一定義7 7彳儿set module = SPPMD set service_group = SPPGPset service = SPPSV1=SPPSV1P,SPPSV2=SPPSV2P 其中 SPPSV1 ,SPPSV2 为向 OPENTP1 ...
FD 是文件描述符 那你说entry是啥意思？？
000600 SET COBOL-CALLBACK-PPTR TO ENTRY "COBOL-CALLBACK". 000700 CALL "reg_cobol_callback" USING 000800 BY VALUE COBOL-CALLBACK-PPTR. 000900 CALL "call_cobol". 001000 STOP RUN. 001100 END PROGRAM MAIN. 001200 IDENTIFICATION DIVISION. 001300 PROGRAM-ID. COBOL-CALLBACK. 001400 DATA DIVISION...
13、tial Organization)键顺序数据集KSDSK Key SeSequenced D Data S Set进入顺序数据组织(Entry Sequential Organization)进入顺序数据集ESDSE Entry SeSequenced D Data S Set相对记录数据组织(Relative Organization)相对记录数据集RRDSR Relative R Record D Data S Set编辑pptVSAM文件分类ESDSESDS进入顺序数据集进入...
此短语不能用于包含ENTRY语句的程序、嵌套程序和主程序。过程部的结束由以下之一标识:碰到嵌套程序的标识部部头。 END PROGRAM记号。 到达程序的尾部,后面再没有任何代码行了。cobol学习笔记(8)COBOL的基本结构 例2010/07/13 14:16//标识部000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. PGMNAME. //指定本...
Cite this Entry Style “COBOL.” Merriam-Webster.com Dictionary, Merriam-Webster, https://www.merriam-webster.com/dictionary/COBOL. Accessed 2 Nov. 2024. Copy Citation Share Post the Definition of COBOL to Facebook Facebook Share the Definition of COBOL on Twitter Twitter ...
8-47 CODE-SET Clause (File Control Entry or File Description Entry)... 8-47 REVERSED Phrase (OPEN Statement)... 8-47 WITH NO LOCK Phrase (READ Statement)... 8-47 ADVANCING ZERO LINES Phrase (WRITE Statement) ...