2.8.3 - Hello World em PL/1
Para PL1 temos :
//PL10001 JOB 'COMPILA E LOAD DE PROGRAMA PL/1',
// NOTIFY=&SYSUID,REGION=0M
//STEP1 EXEC IBMZCPLG
//PLI.STEPLIB DD DSN=IEL520.SIBMZCMP,DISP=SHR
//SYSIN DD *
Hello: procedure options (main);
put skip list ('Hello World em PL/1 !');
end Hello;
//*Esse job apresenta 2 "comandos" novos, sendo o primeiro REGION e o outro um "override".
REGION Estabelece o tamanho máximo de memória a ser utilizado pelo job. Quando REGION=0K ou 0M o limite é o máximo que a instalação permitir.
Se o parametro não é fornecido o sistema utiliza um valor padrão. A maioria dos abend's relacionados a "INSUFFICIENT STORAGE" são "facilmente" resolvidos aumentando o valor de region.
"Override"
É a definicao dada ao processo de substituição/deleção/inclusao de um "pedaço" não desejado de um procedimento por um novo "pedaço".
Entenda-se por pedaço praticamente qualquer cartão e/ou parametro contido no procedimento a sofrer o override.
Os cartoes DD relativos a um override são codificados conforme o exemplo do job acima, lega. Mas o que que aconteceu ? É simples, o procedimento catalogado executado pelo nosso JOB PL100001 chamado IBMZCPLG contem um step chamado PL1 no qual o DD STEPLIB original nao nos serve.
Esse fato pode ocorrer devido inumeros motivos, desde o arquivo original na procedure não mais existir ou colocar propositalmente um arquivo que nao existe no lugar do original para causar uma interrupção no job... fica a gosto do fregues dependendo de sua necessidade. No nosso caso foi puramente didatico.
O que o override do nosso job fez foi o seguinte:
Substituiu o operando do cartao DD STEPLIB o qual era "DSN=IBMZ.V3R6M0.SIBMZCMP,DISP=SHR" por outro arquivo, no caso, "IEL520.SIBMZCMP" .
Após submissão do job PL10001 temos praticamente o mesmo comportamento do job anterior
Sendo os dados de saida enviados para o file SYSPRINT do STEP1 "no step" GO da procedure (IBMZCPLG) e conterá :
Sendo os dados de saida enviados para o file SYSPRINT do STEP1 "no step" GO da procedure (IBMZCPLG) e conterá :
Last updated