em que a variavel foi declarada.Com este recurso, pode-se criar situacoes semelhantes com oGO TO DEPPENDING ON do COBOL.Observe nos exemplos abaixo que as variaveis do tipo ainda podem utilizar umaoutra forma de inicializacao de valores:DCL ROT1 LABEL, ROT2 LABEL INIT (GRAVA), ROT3 LABEL(LE,GRAVA,REGRAVA), ROT4LABEL(LE,GRAVA,ORDENA,IMPRIME) INIT (LE);O atributo LABEL permite ainda a especificacao de quaisnomes de rotulos poderao ser armazenados pela variavel durante a execucao doprograma.2.9. Declaracao parcial de variaveisSe faltar um mais atributos em um comando DECLARE, podemosdizer que a variavel foi parcialmente declarada e assumira os atributosdefaults definidos pelo compilador conforme segue:ASe nao for declarada a BASE sera assumido DECIMALASe nao for declarada a ESCALA sera assumido FLOATASe nao for declarado o MODO sera assumido REALASe nao for declarada a PRECISAO sera assumido os defaults da tabela a seguir: Base e Escala Precisao BINARY FIXED (15,0) DECIMAL FIXED (5,0) BINARY FLOAT (21) DECIMAL FLOAT (6) 2.10. Variaveis nao declaradasQuando uma variavel nao e declarada, o compilador, aoperceber uma movimentacao, associacao ou comparacao desta variavel iradeclara-la automaticamente seguindo as regras:A Toda e qualquer variavel nao declarada sera numerica;A Se a primeira letra da variavel for I, J,K, L, M ou N, ela sera uma half-word, binaria,sinalizada e de ponto flutuante;A Se nao comecar com uma das letras citadas, seradecimal de ponto flutuante, sinalizada com precisao de 6 casas na mantissa.Sempre que tal situacao ocorrer, o compilador ira avisarinformando que determinada variavel nao foi declarada explicitamente e estasendo assumida como um tipo default.2.11. Variaveis PIC (PICTURE)Variaveis picture sao numericas, decimais zonadas esinalizadas ou nao. sao as mesmas PIC do COBOL, limitadas a 15 digitos em PL/I.Na verdade, trata-se de uma caracteristica propositalmente semelhante alinguagem COBOL, onde a sintaxe de declaracao sera:DCL NIVEL VARIAVEL PIC (nn)9V(nn)9As mascaras de impressao Z para brancos, ,(virgula),. (ponto), - (sinal negativo) e + (sinal positivo) sao validas tambem.Vale lembrar que o V que separa aparte inteira da parte fracionaria e apenas logico, nao ocupando espaco fisicona memoria e nao implica na impressao de uma virgula ou ponto decimal quando avariavel e mostrada.Observe as declaracoes a seguir: Declaracao Descricao da variavel 1) PIC 9(15) ou PIC (15)9 2) 15 digitos inteiros sem sinal 3) PIC V(15)9 ou PIC V9(15) 4) 15 digitos decimais sem sinal 5) PIC 9(08)V9(07) 6) 15 digitos, 8 inteiros e 7 decimais sem sinal 7) PIC ZZZ.ZZ9 8) Mascara de impressao (nao pode ser utilizada em operacoes) 9) PIC S99.999 10) Mascara de impressao, indica se o numero e positivo ou negativo. O sinal aparecera. 11) PIC +99.999 12) Mascara de impressao, so se numero for positivo o sinal + aparecera. 13) PIC -99.999 14) Mascara de impressao, so se o numero for negativo, o sinal - aparecera. 15) PIC 99/99/999 16) Mascara de impressao utilizada para datas. 17) PIC 99B99B9999 18) Mascara de impressao utilizada para datas. Agora suponha o valor 123456789.012345 submetido aspictures: Picture Resultado 1) 123456789 2) 012345 3) 23456789.012345 4) +56.789 5) +56.789 6) +56.789 7) 56.789 8) 23/45/6789 9) 23 45 6789 3. COMANDOS DE ENTRADA E SAIDA3.1. Comando LISTE um comando simples de E/S que permite a leitura