CL 程序或过程执行的操作

在线编辑

这是可以使用 CL 程序或过程执行的操作类型的概述。

通常，您可以执行以下操作:
  • 使用变量，逻辑控制命令，表达式和内置函数来处理和处理 CL 程序或过程中的数据:
    
PGM
DCL &C *LGL
DCL &A *DEC VALUE(22)
DCL &B *CHAR VALUE(ABCDE)
•
•
•
CHGVAR &A (&A + 30)
•
•
•
IF (&A < 50) THEN(CHGVAR &C '1')
•
DSPLIB ('Q' ∨∨ &B)
•
IF (%SST(&B 5 1)=E) THEN(CHGVAR &A 12)
•
•
•
ENDPGM
  • 在 CL 程序或过程中使用系统值作为变量。
    在 CL 过程中使用系统值作为变量。
  • 将作业属性用作 CL 程序或过程中的变量。
    在 CL 过程中使用作业属性作为变量。
  • 使用 CL 程序或过程在显示文件之间发送和接收数据。
    使用 CL 过程在显示文件之间发送和接收数据。
  • 创建 CL 程序或过程以监视作业的错误消息并在必要时执行更正操作。
    
        PGM
 
        MONMSG MSGID(CPF0001) EXEC(GOTO ERROR)
        CALL PROGA
        CALL PROGB
        RETURN
ERROR:  SNDPGMMSG MSG('A CALL command failed') MSGTYPE(*ESCAPE)
        ENDPGM
  • 控制过程和程序之间的处理，并将参数从 CL 程序或过程传递到其他程序或过程以覆盖文件。
控制过程和程序之间的处理，并将参数从 CL 过程传递到其他过程或程序以覆盖文件。

作为控制程序或过程， CL 程序或过程可以调用以其他语言编写的程序或过程。 上图显示了如何在应用程序中的 CL 程序或过程、RPG IV 和集成 Language Environment® (ILE) COBOL 过程之间传递控制。 要使用应用程序，工作站用户可以请求程序 A ，该程序控制整个应用程序。 该图显示了使用带有 PGMA 的 CALL 命令调用的单个绑定程序 (PGMA)。 PGMA 由以下过程组成:

  • 调用 RPG IV 过程 (PGMB) 的 CL 过程 (PGMA)
  • RPG IV 过程 (PGMB) 调用另一 RPG IV 过程 (PGMC)
  • 调用 CL 过程 (PGMD) 的 RPG IV 过程 (PGMB)
  • 一个 CL 程序 (PGMA) 调用一个 ILE COBOL 程序 (PGME)
  • ILE COBOL 存储过程 (PGME) 调用 CL 存储过程 (PGMF)
下图显示了如何在应用程序中的 CL 存储过程与 RPG IV* 和 ILE COBOL 存储过程之间传递控制。

可以创建过程，如以下示例中所示。 您可以在单独的源成员中输入过程的源。


    CRTCLMOD PGMA
    CRTRPGMOD PGMB
    CRTRPGMOD PGMC
    CRTCLMOD PGMD
    CRTCBLMOD PGME
    CRTCLMOD PGMF
    CRTPGM PGM(PGMA) +
           MODULE(PGMA PGMB PGMC PGMD PGME PGMF) +
           ENTMOD(*FIRST)