Guia do Usuário do Navegador

10.5.1
- 10.5.8
- 10.5.6
- 10.5.5
- 10.5.4
- 10.5.3
- 10.5.2
- 10.5
- 10.4.1
- 10.4.0 HotFix 1
- 10.4.0

Anterior Avançar

Vínculo do Programa CL - Exemplo

O código a seguir exibe um exemplo de vínculo do programa CL:

PGM PARM(&NBRFLDS &RC &MSGBUFF &MSGBUFFSZ &TEXT &TEXTLEN &NUM &NUMLEN)
/*----------------------------------------------------------------*/
/* ARGUMENTS                                                      */
/*----------------------------------------------------------------*/
             DCL        VAR(&NBRFLDS) TYPE(*CHAR) LEN(4)
             DCL        VAR(&RC) TYPE(*CHAR) LEN(4)
             DCL        VAR(&MSGBUFF) TYPE(*CHAR) LEN(128)
             DCL        VAR(&MSGBUFFSZ) TYPE(*CHAR) LEN(4)
             DCL        VAR(&TEXT) TYPE(*CHAR) LEN(15)
             DCL        VAR(&TEXTLEN) TYPE(*CHAR) LEN(4)
             DCL        VAR(&NUM) TYPE(*CHAR) LEN(4)
             DCL        VAR(&NUMLEN) TYPE(*CHAR) LEN(4)

No exemplo de programa, dois campos são passados para o programa CL.

O primeiro campo é chamado TEXT e tem um tamanho fixo de 15. Os dados podem ser movidos para ele e dele usando o quinto argumento &TEXT. Se não for um campo CHAR de tamanho fixo, o tamanho dos dados deve ser usado para determinar o tamanho real, como o campo &TEXTLEN.

Infelizmente, a linguagem CL não suporta números inteiros diretamente. Para obter o valor numérico, o conteúdo de &TEXTLEN deve ser movido para um decimal compactado usando uma instrução como:

CHGVAR     VAR(&DECTEXTLEN) VALUE(%BIN(&TEXTLEN 1 4))

Se o tamanho for alterado pelo programa, o novo tamanho deverá ser movido para o campo TEXTLEN usando uma instrução como:

CHGVAR     VAR(%BINARY(&TEXTLEN)) VALUE(&DECTEXTLEN)

Programa RPG - Exemplo

Baixar guia

Enviar comentários

Communities

Knowledge Base

Portal de Sucesso

Rename Saved Search

Sumário

Guia do Usuário do Navegador

Guia do Usuário do Navegador

Vínculo do Programa CL - Exemplo

Vínculo do Programa CL - Exemplo