Aumentando a Capacidade dos Datasets do SMF

Utilizando o meu ambiente Hercules, percebi que o espaço destinado ao SMF estava muito pequeno, o que poderia impactar a coleta adequada dos registros e informações do sistema. Para evitar possíveis problemas futuros e garantir o bom funcionamento do ambiente, tomei a decisão de aumentar o tamanho dos datasets utilizados pelo SMF, ajustando sua capacidade para atender melhor às necessidades atuais.

                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
   IEE949I 11.13.57 SMF DATA SETS       FRAME LAST   F      E   SYS=ADCD        
             NAME      VOLSER SIZE(BLKS) %FULL  STATUS                          
           P-SYS1.MAN1 ZASYS1      7200    64  ACTIVE                           
           S-SYS1.MAN2 ZASYS1      1800     0  ALTERNATE                        
           S-SYS1.MAN3 ZASYS1      1800     0  ALTERNATE                        
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
  IEE612I CN=L700     DEVNUM=0700 SYS=ADCD                                      


  IEE163I MODE= RD   

Criando 3 novos datasets maior para o SMF - foi esse o JCL que foi submetido para criar esses 3 novos datasets

   Menu  Utilities  Compilers  Help                                             
 ───────────────────────────────────────────────────────────────────────────────
 BROWSE    ADCD.LIB.JCL($$SMF002) - 01.08             Line 00000000 Col 001 080
 Command ===>                                                  Scroll ===> PAGE
********************************* Top of Data **********************************
//SMF0002 JOB 'CRIANDO UM NOVO DATASET',                                        
// NOTIFY=&SYSUID,REGION=0M                                                     
//* ------------------------------------------------------------------          
//*              CRIANDO UM NOVO DATASET SMF                                    
//* ------------------------------------------------------------------          
//ALCVSAM  EXEC PGM=IDCAMS                                                      
//SYSPRINT DD SYSOUT=*                                                          
//SYSIN    DD *                                                                 
  DEFINE CLUSTER( -                                                             
        CONTROLINTERVALSIZE(4096) -                                             
        CYLINDERS(200) -                                                        
        NAME(SYS1.SMF.MAN1) -                                                   
        NONINDEXED -                                                            
        RECORDSIZE(4086,32767) -                                                
        REUSE -                                                                 
        SHAREOPTIONS(2) -                                                       
        SPANNED -                                                               
        SPEED -                                                                 
        VOLUME(ZASYS1) ) -                                                      
        DATA( -                                                                 
        NAME(SYS1.SMF.MAN1.DATA) )   
  DEFINE CLUSTER( -                                                             
        CONTROLINTERVALSIZE(4096) -                                             
        CYLINDERS(200) -                                                        
        NAME(SYS1.SMF.MAN2) -                                                   
        NONINDEXED -                                                            
        RECORDSIZE(4086,32767) -                                                
        REUSE -                                                                 
        SHAREOPTIONS(2) -                                                       
        SPANNED -                                                               
        SPEED -                                                                 
        VOLUME(ZASYS1) ) -                                                      
        DATA( -                                                                 
        NAME(SYS1.SMF.MAN2.DATA) )           
   DEFINE CLUSTER( -                                                             
        CONTROLINTERVALSIZE(4096) -                                             
        CYLINDERS(200) -                                                        
        NAME(SYS1.SMF.MAN3) -                                                   
        NONINDEXED -                                                            
        RECORDSIZE(4086,32767) -                                                
        REUSE -                                                                 
        SHAREOPTIONS(2) -                                                       
        SPANNED -                                                               
        SPEED -                                                                 
        VOLUME(ZASYS1) ) -                                                      
        DATA( -                                                                 
        NAME(SYS1.SMF.MAN3.DATA) )                                              
******************************** Bottom of Data ********************************

Explicação:

Ao definir um novo dataset de SMF, as seguintes opções precisam fazer parte do comando DEFINE:

REUSE - indica que o programa de dump pode limpar o dataset de SMF
CONTROLINTERVALSIZE - indica o tamanho do buffer SMF. Para datasets de SMF, você pode especificar qualquer valor entre 0,5 (512 bytes) e 26K (26624 bytes), com certas restrições.
SHAREOPTIONS - tem dois valores que definem o nível de SHAREOPTIONS. O valor entre regiões deve ser 2. Isso indica que o compartilhamento ocorre com a leitura e a serialização ocorre com a escrita. O valor entre sistemas pode ser o padrão.
NONINDEXED - indica que as entradas são sequenciadas por entrada.
SPANNED - indica que os registros podem abranger intervalos de controle.
SPEED - indica que o dataset não será pré-formatado pelo VSAM enquanto o IFASMFDP estiver pré-formatando. (Se SPEED não for selecionado, o VSAM e o SMF serão pré-formatados simultaneamente.)

Vamos acessar a biblitoeca PARMLIB para alterar o membro SMFPRM00

   Menu  Options  View  Utilities  Compilers  Help                              
 ────────────────────────────────────────────────────────────────────────────── 
 DSLIST - Data Sets Matching ADCD*                          0 Members processed
 Command ===>                                                  Scroll ===> PAGE
                                                                                
 Command - Enter "/" to select action                  Message           Volume 
 -------------------------------------------------------------------------------
          ADCD.DYNISPF.ISPPLIB                                           ZARES1 
          ADCD.LIB.JCL                                                   ZARES1 
          ADCD.TCPIP.DATA                                                ZASYS1 
          ADCD.Z110.CLIST                                                ZARES1 
          ADCD.Z110.DBS.ISPPLIB                                          ZARES1 
          ADCD.Z110.DBS1.ISPPLIB                                         ZARES1 
          ADCD.Z110.ISPPLIB                                              ZARES1 
          ADCD.Z110.LINKLIB                                              ZARES1 
          ADCD.Z110.LPALIB                                               ZARES1 
 B        ADCD.Z110.PARMLIB                            Browsed           ZARES1 
          ADCD.Z110.PROCLIB                                              ZARES1 
          ADCD.Z110.TCPPARMS                                             ZARES1 
          ADCD.Z110.VTAM.SOURCE                                          ZARES1 
          ADCD.Z110.VTAMLIB                                              ZARES1 
          ADCD.Z110.VTAMLST                                              ZARES1 
          ADCD.Z110.WLMIN                                                ZARES1 
          ADCD.Z110.WLMIN.BACKUP                                         ZARES1 
          ADCD.Z110.WLMIN.Z19S                                           ZARES1 
 ***************************** End of Data Set list ****************************

vamos pesquisar L SMF

   Menu  Functions  Confirm  Utilities  Help                                    
 ────────────────────────────────────────────────────────────────────────────── 
 BROWSE            ADCD.Z110.PARMLIB                         Row 00001 of 00223
 Command ===> L SMF                                            Scroll ===> PAGE
            Name     Prompt       Size   Created          Changed          ID  
 _________ $$$COIBM                 29  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ AAASMF01                  2  2008/11/06  2025/04/24 20:29:11  IBMUSER
 _________ AAASMF02                  1  2008/11/06  2025/04/24 20:20:06  IBMUSER
 _________ ADYSET00                 15  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ ADYSET01                 11  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ ADYSET02                 13  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ APFHLA                    2  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ APPCPM1A                 71  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ ASAIPCSP                 26  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ ASBIPCSP                 44  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ ASCHPM1A                 17  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ ATBIPCSP                 42  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ ATCSTRPX                 12  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ ATCSTRP1                 12  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ ATCSTRQX                 12  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ ATCSTRQ1                 12  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ AXR00                    33  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ BDTIPCSP                 34  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ BLSCECT                 642  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ BLSCECTX                 84  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ BLSCUSER                 64  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ BPXIPCSP                242  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ BPXPRMBB                149  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ BPXPRMCI                141  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ BPXPRMCS                 97  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ BPXPRMDB                171  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ BPXPRMD2                179  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ BPXPRMD8                140  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ BPXPRMD9                156  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ BPXPRM00                141  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ CEEIPCSP                160  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ CLOCK00                   7  2008/11/06  2025/04/23 16:36:18  IBMUSER
 _________ CLRPARM                   3  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ CNGRP00                   7  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ CNLENU00                 99  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ CNLJPN00                104  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ COFDLF00                 26  2008/11/06  2008/11/06 15:49:16  IBMUSER
 _________ COFIPCSP                 74  2008/11/06  2008/11/06 15:49:16  IBMUSER

Vamos editar o SMFPRM00

   Menu  Functions  Confirm  Utilities  Help                                    
 ────────────────────────────────────────────────────────────────────────────── 
 BROWSE            ADCD.Z110.PARMLIB                         Row 00212 of 00223
 Command ===>                                                  Scroll ===> PAGE
            Name     Prompt       Size   Created          Changed          ID  
 _________ SHUTDOWN                 38  2008/11/06  2025/04/22 02:15:31  IBMUSER
 E________ SMFPRM00                 23  2008/11/06  2025/04/27 11:04:24  IBMUSER
 _________ TSOKEY00                 13  2008/11/06  2008/11/06 15:49:18  IBMUSER
 _________ VATLST00                  2  2008/11/06  2008/11/06 15:49:18  IBMUSER
 _________ VTAMALL                  36  2008/11/06  2025/04/22 02:24:30  IBMUSER
 _________ VTAMAPPL                 20  2008/11/06  2025/04/22 02:24:43  IBMUSER
 _________ VTAMBB                   27  2008/11/06  2025/04/22 02:24:56  IBMUSER
 _________ VTAMCI                   26  2008/11/06  2025/04/22 02:25:05  IBMUSER
 _________ VTAMDB                   25  2008/11/06  2025/04/22 02:25:13  IBMUSER
 _________ VTAMD2                   27  2008/11/06  2025/04/22 02:25:23  IBMUSER
 _________ VTAMD8                   24  2008/11/06  2025/04/22 02:25:31  IBMUSER
 _________ VTAMD9                   25  2008/11/06  2025/04/22 02:25:40  IBMUSER
           **End**  

Temos 3 datasets antigos, vamos alterar SYS1.MAN para SYS1.SMF.MAN

   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help            
 ───────────────────────────────────────────────────────────────────────────────
 EDIT       ADCD.Z110.PARMLIB(SMFPRM00) - 01.05             Columns 00001 00072
 Command ===>                                                  Scroll ===> CSR
 ****** ***************************** Top of Data ******************************
 000001    ACTIVE                        /* ACTIVE SMF RECORDING             */ 
 000002  DSNAME(SYS1.MAN1, 
 000003         SYS1.MAN2, 
 000004         SYS1.MAN3) 
 000005  NOPROMPT                        /* DO NOT PROMPT OPERATOR           */ 
 000006  REC(PERM)                       /* TYPE 17 PERM RECORDS ONLY        */ 
 000007  MAXDORM(3000)                   /* WRITE IDLE BUFFER AFTER 30 MIN   */ 
 000008  STATUS(010000)                  /* WRITE SMF STATS AFTER 1 HOUR     */ 
 000009  JWT(0400)                       /* 522 AFTER 30 MINUTES             */ 
 000010  SID(SYS1) 
 000011  LISTDSN                         /* LIST DATA SET STATUS AT IPL      */ 
 000012  SYS(NOTYPE(14:19,62:69,118,119), 
 000013      EXITS(IEFU83,IEFU84,IEFACTRT, 
 000014                IEFUSI,IEFUJI,IEFU29),NOINTERVAL,NODETAIL) 
 000015  /* WRITE ALL EXCEPT DATA MANAGEMENT RECORDS, TAKE EXITS.            */ 
 000016  /* NOTE: JES EXITS CONTROLED BY JES , THERE IS NO                   */ 
 000017  /* DEFAULT INTERVAL RECORDS WRITTEN AND ONLY SUMMARY T32            */ 
 000018  /* RECORDS AS A DEFAULT FOR TSO.                                    */ 
 000019  SUBSYS(STC,EXITS(IEFU29,IEFU83,IEFU84,IEFUJP,IEFUSO)) 
 000020  /* WRITE RECORDS ACCORDING TO SYS VALUE, TAKE ONLY FIVE             */ 
 000021  /* EXITS, NOTE: IEFU29 EXECUTES IN THE MASTER ASID WHICH IS A       */ 
 000022  /* STC ADDRESS SPACE SO IEFU29 MUST BE ON FOR STC.                  */ 
 000023  /* USE ALL OTHER SYS PARMETERS AS A DEFAULT.                        */ 
 ****** **************************** Bottom of Data ****************************

Alterado e salvo (save)

  File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help            
───────────────────────────────────────────────────────────────────────────────
EDIT       ADCD.Z110.PARMLIB(SMFPRM00) - 01.06             Columns 00001 00072
Command ===> SAVE                                             Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001    ACTIVE                        /* ACTIVE SMF RECORDING             */ 
000002  DSNAME(SYS1.SMF.MAN1, 
000003         SYS1.SMF.MAN2, 
000004         SYS1.SMF.MAN3) 
000005  NOPROMPT                        /* DO NOT PROMPT OPERATOR           */ 
000006  REC(PERM)                       /* TYPE 17 PERM RECORDS ONLY        */ 
000007  MAXDORM(3000)                   /* WRITE IDLE BUFFER AFTER 30 MIN   */ 
000008  STATUS(010000)                  /* WRITE SMF STATS AFTER 1 HOUR     */ 
000009  JWT(0400)                       /* 522 AFTER 30 MINUTES             */ 
000010  SID(SYS1) 
000011  LISTDSN                         /* LIST DATA SET STATUS AT IPL      */ 
000012  SYS(NOTYPE(14:19,62:69,118,119), 
000013      EXITS(IEFU83,IEFU84,IEFACTRT, 
000014                IEFUSI,IEFUJI,IEFU29),NOINTERVAL,NODETAIL) 
000015  /* WRITE ALL EXCEPT DATA MANAGEMENT RECORDS, TAKE EXITS.            */ 
000016  /* NOTE: JES EXITS CONTROLED BY JES , THERE IS NO                   */ 
000017  /* DEFAULT INTERVAL RECORDS WRITTEN AND ONLY SUMMARY T32            */ 
000018  /* RECORDS AS A DEFAULT FOR TSO.                                    */ 
000019  SUBSYS(STC,EXITS(IEFU29,IEFU83,IEFU84,IEFUJP,IEFUSO)) 
000020  /* WRITE RECORDS ACCORDING TO SYS VALUE, TAKE ONLY FIVE             */ 
000021  /* EXITS, NOTE: IEFU29 EXECUTES IN THE MASTER ASID WHICH IS A       */ 
000022  /* STC ADDRESS SPACE SO IEFU29 MUST BE ON FOR STC.                  */ 
000023  /* USE ALL OTHER SYS PARMETERS AS A DEFAULT.                        */ 
****** **************************** Bottom of Data ****************************

Vou dar um IPL no meu Hercules para o sistema voltar iniciar nos novos datasets

                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
  IEE612I CN=L700     DEVNUM=0700 SYS=ADCD                                      
  S SHUTALL

  IEE163I MODE= RD    

Saiu o JES2, vou dar um IPL no Hercules

     *11.21.53          *BPXI032E FORK SERVICE HAS BEEN SHUTDOWN SUCCESSFULLY.  
     *ISSUE F BPXOINIT,RESTART=FORKS TO RESTART FORK SERVICE.                   
    - 11.22.05 STC00040  IEF404I SHUTALL - ENDED - TIME=11.22.05                
      11.22.05           $HASP099 ALL AVAILABLE FUNCTIONS COMPLETE              
      11.22.07           $HASP314 INIT 1    DRAINED  ******** C=A               
      11.22.07           $HASP314 INIT 2    DRAINED  ******** C=AB              
      11.22.07           $HASP314 INIT 3    DRAINED  ******** C=ABC             
    - 11.22.07 STC00008  IEF404I INIT - ENDED - TIME=11.22.07                   
      11.22.07           $HASP314 INIT 4    DRAINED  ******** C=ABCDE           
      11.22.07           $HASP314 INIT 5    DRAINED  ******** C=ABCD            
      11.22.07           $HASP314 INIT 6    DRAINED  ******** C=ABCD            
    - 11.22.07 STC00006  IEF404I INIT - ENDED - TIME=11.22.07                   
    - 11.22.07 STC00012  IEF404I INIT - ENDED - TIME=11.22.07                   
    - 11.22.07 STC00009  IEF404I INIT - ENDED - TIME=11.22.07                   
      11.22.07           $HASP314 INIT 7    DRAINED  ******** C=ABCD            
    - 11.22.07 STC00011  IEF404I INIT - ENDED - TIME=11.22.07                   
    - 11.22.07 STC00007  IEF404I INIT - ENDED - TIME=11.22.07                   
    - 11.22.07 STC00013  IEF404I INIT - ENDED - TIME=11.22.07                   
      11.22.07           $HASP314 INIT 8    DRAINED  ******** C=ABCD            
    - 11.22.07 STC00010  IEF404I INIT - ENDED - TIME=11.22.07                   
    - 11.22.07 STC00015  IEF404I INIT - ENDED - TIME=11.22.07                   
      11.22.07           $HASP314 INIT 9    DRAINED  ******** C=ABCD            
    - 11.22.07 STC00014  IEF404I INIT - ENDED - TIME=11.22.07                   
      11.22.07           $HASP314 INIT 10   DRAINED  ******** C=ABCD            
      11.22.07           CNZ4213I SYSLOG PROCESSING HAS ENDED                   
     *11.22.07          *IEE037D LOG NOT ACTIVE                                 
    - 11.22.08           IXZ0002I CONNECTION TO JESXCF COMPONENT DISABLED,      
    -          GROUP N1       MEMBER N1$SYS1                                    
      11.22.08           $HASP9085 JES2 MONITOR ADDRESS SPACE STOPPED FOR JES2  
    - 11.22.08           IEF404I IEESYSAS - ENDED - TIME=11.22.08               
    - 11.22.08           IXZ0002I CONNECTION TO JESXCF COMPONENT DISABLED,      
    -          GROUP SYSJ2$XD MEMBER N1$SYS1$$$$$$$$$                           
      11.22.13           $HASP085 JES2 TERMINATION COMPLETE                     
    - 11.22.13           IEF404I JES2 - ENDED - TIME=11.22.13                   
  00- 11.22.16           Z EOD                                                  
      11.22.16           IEE334I HALT EOD SUCCESSFUL                            
     *11.22.16          *IEE362A SMF ENTER DUMP FOR SYS1.MAN1 ON ZASYS1         
      11.22.16           IEE360I SMF NOW RECORDING ON SYS1.MAN2 ON ZASYS1       
       TIME=11.22.16                                                            
  IEE612I CN=L700     DEVNUM=0700 SYS=ADCD                                      


  IEE163I MODE= RD  

Depois do IPL, com o sistema esta no ar, vamos observar os novos tamanhos do SMF - Perfeito

    -           D SMF                                                           
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
                                                                                
   IEE974I 11.24.40 SMF DATA SETS       FRAME LAST   F      E   SYS=ADCD        
             NAME                VOLSER SIZE(BLKS) %FULL  STATUS                
           P-SYS1.SMF.MAN1       ZASYS1     36000     2  ACTIVE                 
           S-SYS1.SMF.MAN2       ZASYS1     36000     0  ALTERNATE              
           S-SYS1.SMF.MAN3       ZASYS1     36000     0  ALTERNATE   

Leia Mais

Rodando um programa PL/L no Hercules

PL/I (alternativamente PL/1, lê-se pê-ele-um) significa Programming Language One e é uma linguagem de programação desenvolvida pela IBM em meados de 1960. A previsão da IBM era que a linguagem fosse utilizada em ciências, inteligência artificial e negócios. Por um período de tempo foi a principal linguagem ensinada na Universidade de Michigan Dearborn. Entretanto, a popularidade declinou nos anos recentes, devido à introdução de línguagens de programação mais modernas voltadas para o ambiente Mainframe.

Sua principal função é o processamento/manipulação de dados; suporta recursão e alocação dinâmica.

Por que PL/I ainda é relevante?

Multifuncionalidade: Pode ser usada tanto para aplicações comerciais quanto científicas.
Integração com o z/OS: Excelente desempenho em ambientes mainframe, com suporte nativo a arquivos VSAM, DB2, e até interfaces com CICS.
Recursos modernos: Mesmo sendo antiga, PL/I possui recursos como tratamento de exceções (ON UNDEFINEDFILE, ON ENDFILE etc.) que nem COBOL nativamente oferece da mesma forma.
Legado ativo: Muitas instituições financeiras e governamentais ainda possuem sistemas escritos em PL/I, exigindo manutenção e evolução constante.

Hello World

Esse é um exemplo de um JCL de Hello World que podemos criar

   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help            
 ───────────────────────────────────────────────────────────────────────────────
 EDIT       ADCD.LIB.JCL($$PLII) - 01.04                    Columns 00001 00072
 Command ===>                                                  Scroll ===> CSR
 ****** ***************************** Top of Data ******************************
 000001 //PL10001 JOB 'COMPILA E LOAD DE PROGRAMA PL/1', 
 000002 // NOTIFY=&SYSUID,REGION=0M 
 000003 //* ------------------------------------------------------------------ 
 000004 //*                  PROGRAMA PL/1 DE EXEMPLO 
 000005 //* ------------------------------------------------------------------ 
 000006 //STEP1 EXEC IBMZCPLG 
 000007 //PLI.STEPLIB DD DSN=IEL370.SIBMZCMP,DISP=SHR 
 000008 //SYSIN DD * 
 000009   Hello: procedure options (main); 
 000010   put skip list ('Hello World em PL/1 !'); 
 000011   end Hello; 
 000012 //* 
 ****** **************************** Bottom of Data ****************************

Rodou ok

   Display  Filter  View  Print  Options  Help                                  
 -------------------------------------------------------------------------------
 SDSF OUTPUT DISPLAY PL10001  JOB00038  DSID     2 LINE 0       COLUMNS 02- 81  
 COMMAND INPUT ===>                                            SCROLL ===> CSR
********************************* TOP OF DATA **********************************
                         J E S 2  J O B  L O G  --  S Y S T E M  S Y S 1  --  N 
                                                                                
00.59.03 JOB00038 ---- SUNDAY,    20 APR 2025 ----                              
00.59.03 JOB00038  IRR010I  USERID IBMUSER  IS ASSIGNED TO THIS JOB.            
00.59.03 JOB00038  ICH70001I IBMUSER  LAST ACCESS AT 00:53:18 ON SUNDAY, APRIL 2
00.59.03 JOB00038  $HASP373 PL10001  STARTED - INIT 1    - CLASS A - SYS SYS1   
00.59.03 JOB00038  IEF403I PL10001 - STARTED - TIME=00.59.03                    
00.59.06 JOB00038  IEF404I PL10001 - ENDED - TIME=00.59.06                      
00.59.06 JOB00038  $HASP395 PL10001  ENDED                                      
------ JES2 JOB STATISTICS ------                                               
  20 APR 2025 JOB EXECUTION DATE                                                
           12 CARDS READ                                                        
          655 SYSOUT PRINT RECORDS                                              
            0 SYSOUT PUNCH RECORDS                                              
           36 SYSOUT SPOOL KBYTES                                               
         0.05 MINUTES EXECUTION TIME                                            
        1 //PL10001 JOB 'COMPILA E LOAD DE PROGRAMA PL/1',                      
          // NOTIFY=&SYSUID,REGION=0M                                           
          //* ------------------------------------------------------------------
          //*                  PROGRAMA PL/1 DE EXEMPLO                         
          //* ------------------------------------------------------------------
          IEFC653I SUBSTITUTION JCL - 'COMPILA E LOAD DE PROGRAMA PL/1',NOTIFY=I
        2 //STEP1 EXEC IBMZCPLG                                                 
        3 XXIBMZCPLG PROC LNGPRFX='IBMZ.V3R7M0',LIBPRFX='CEE',                  
          XX             SYSLBLK=3200,PLANG=EDCPMSGE,GOPGM=GO                   
          XX*                                                                   
          XX********************************************************************
          XX* Licensed Materials - Property of IBM                              
          XX* 5655-H31                                                          
          XX* (C) Copyright IBM Corp. 1999, 2007 All Rights Reserved            
          XX*                                                                   
          XX* US Government Users Restricted Rights - Use, duplication or       
          XX* disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
          XX*                                                                   
          XX********************************************************************
          XX*                                                                   
          XX*       IBM Enterprise PL/I for z/OS                                
          XX*       Version 3 Release 7 Modification 0                          

Observe a penultima linha - Hello World em PL/1 ! - rodou ok

   Display  Filter  View  Print  Options  Help                                  
 -------------------------------------------------------------------------------
 SDSF OUTPUT DISPLAY PL10001  JOB00038  DSID   106 LINE 231     COLUMNS 02- 81  
 COMMAND INPUT ===>                                            SCROLL ===> CSR
                                                                                
 ENTRY POINT AND ALIAS SUMMARY:                                                 
                                                                                
 NAME:            ENTRY TYPE AMODE C_OFFSET CLASS NAME        STATUS            
                                                                                
 CEESTART          MAIN_EP      31 00000000 B_TEXT                              
                                                                                
                         ***** E N D  O F  R E P O R T *****                    
                                                                                
                                                                                
                                                                                
                                                                                
z/OS V1 R10 BINDER     00:59:04 SUNDAY APRIL 20, 2025                           
BATCH EMULATOR  JOB(PL10001 ) STEP(STEP1   ) PGM= IEWL      PROCEDURE(LKED    ) 
IEW2008I 0F03 PROCESSING COMPLETED.  RETURN CODE =  0.                          
                                                                                
                                                                                
                                                                                
----------------------                                                          
MESSAGE SUMMARY REPORT                                                          
----------------------                                                          
 TERMINAL MESSAGES      (SEVERITY = 16)                                         
 NONE                                                                           
                                                                                
 SEVERE MESSAGES        (SEVERITY = 12)                                         
 NONE                                                                           
                                                                                
 ERROR MESSAGES         (SEVERITY = 08)                                         
 NONE                                                                           
                                                                                
 WARNING MESSAGES       (SEVERITY = 04)                                         
 NONE                                                                           
                                                                                
 INFORMATIONAL MESSAGES (SEVERITY = 00)                                         
 2008  2278                                                                     
                                                                                
                                                                                
 **** END OF MESSAGE SUMMARY REPORT ****                                        
                                                                                
                                                                                
 Hello World em PL/1 !
 ******************************** BOTTOM OF DATA ********************************

Leia Mais