posicao na 1. STRING(arg.) Recebe como argumento uma array, uma estrutura ou mesmo uma variavel simples, retornando uma string de caracteres resultante da concatenacao dos elementos do argumento recebido. REPEAT(str,n) Gera uma string que e a repeticao de n a string str. MOD(V1,V2) Retorna o resto da divisao de V1 por V2. SUM(array) Retorna a soma de todos os elementos da array especificada PROD(array) Retorna o produto de todos os elementos da array especificada 10. CORRESPONDENCIAS ENTRE COBOL EPL/IA seguir alguns comandos do COBOL com os correspondentes emPL/I. Esta tabela pode ser utilizada como referencia para o esclarecimentos dealgumas duvidas. COBOL PL/I SELECT ARQUIVO ASSIGN TO EEEEEE. DCL FILE RECORD ARQUIVO; SELECT ARQUIVO1 ASSIGN TO AAAAAORGANIZATION IS RANDOMACCESS MODE IS DYNAMICRECORD KEY IS WS-CHAVEFILE STATUS IS WS-EST. DCL FILE RECORD ARQUIVO1INPUT KEYED ENV(VSAM GENKEY); SELECT ARQUIVO2 ASSIGN TO IMPRESSORA DCL FILE RECORD ARQUIVO2OUTPUT ENV(FB RECSIZE (133) CTLASA); SELECT ARQUIVO3 ASSIGN TO CCCCCC. DCL FILE RECORD ARQUIVO3OUPUT ENV(FB RECSIZE (200)); SELECT ARQUIVO ASSIGN TO EEEEEE.FD ARQUIVOLABEL RECORD IS STANDARDRECORD CONTAINS 150 RECORDSBLOCK CONTAINS 0 RECORDSRECORDING F. DCL FILE RECORD ARQUIVOINPUT ENV(FB RECSIZE (150)); 01 CAMPO PIC 9(05) COMP-3. DCL 01 CAMPO FIXED (05); 01 CAMPO PIC 9(05) COMP. DCL 01 CAMPO BIN FIXED(05); 01 CAMPO PIC 9(07)V9(02) COMP-3 DCL 01 CAMPO FIXED (11,2); 01 CAMPO PIC X(15) DCL 01 CAMPO CHAR (15); 01 TAB.02 A OCCURS 5 TIMES.03 CAMPO CAMPO1 PIC 9(05) COMP-3. DCL 01 TAB,02 A(5),03 CAMPO1 FIXED(5); MOVE ZEROS TO CAMPO1(1) CAMPO1(2) CAMPO1(3) CAMPO1(4) CAMPO1(5). CAMPO1(*) = 0; 01 WS-DATA.02 WS-ANO PIC 9(02).02 WS-MES PIC 9(02).01 WS-DATA-R REDEFINES WS-DATA PIC 9(04). DCL 01 WS-DATA,02 WS-ANO PIC 99,02 WS-MES PIC 99;DCL 01 WS-DATA-R DEF WS-DATA PIC 9(04); 01 CAMPOX PIC X(01).01 CAMPO1 PIX 9(05).01CAMPO2 PIC 9(05).IF CAMPOX EQUAL AMOVE 10 TO CAMPO1MOVE 20 TO CAMPO2ELSEMOVE 15 TO CAMPO1MOVE 25 TO CAMPO2. DCL 01 CAMPO X CHAR (01),01 CAMPO1 PIC 9(05),01 CAMPO2 PIC 9(05);IF CAMPOX = A THENDOCAMPO1 = 10;CAMPO2 = 20ENDELSEDOCAMPO1 = 15;CAMPO2 = 25;END; OPEN INPUT ARQUIVO OPEN FILE(ARQUIVO) TITLE(EEEEEE) READ ARQUIVO INTO WS-AREAAT END GO TO FINALIZA READ FILE(ARQUIVO) INTO (WS-AREA);ON ENDFILE(ARQUIVO)BEGINGOTO FINALIZAEND; DISPLAY ** TOTAIS DE CONTROLE ** PUT SKIP LIST ** TOTAIS DE CONTROLE ** DISPLAY LIDOS = AC-LIDOS PUT SKIP LIST (LIDOS = , AC-LIDOS); 01 WS-CHAVE PIC 9(05).01 WS-FST PIC 9(02) .READ ARQUIVO1.IF WS-FST EQUAL 10 GO TO FINALIZA DCL 01 WS-CHAVE PIC 9(05);DCL 01 WS-FST PIC 9(02);READ ARQUIVO1 KEY(WS-CHAVE)ON ENDFILE(ARQUVO1) GO TO FINALIZA; IF CAMPOX NOT NUMERIC DISPLAY CAMPOX NAO NUMERICO. IF VERIFY(CAMPOX,0123456789) = 0 PUT SKIP LIST(CAMPOX NAO NUMERICO); WRITE ARQUIVO3. WRITE FILE (ARQUIVO3); 01 DET1.02 FILLER PIC X(01) VALUE 0.02 DET1-DAIDA PIC X(132) VALUE SPACES.WRITE ARQUIVO2 FROM DET1 AFTER 1 LINE. DCL 01 DET1,02 F CHAR(01) INIT -,02 DET1-SAIDA CHAR(132) INIT ;WRITE FILE(ARQUIVO2) FROM (DET1); 11. ARQUIVOSOs nomes de arquivos conterao no maximo 7 caracteres e suadeclaracao seguira a regra:DECLARE FILE;11.1. Atributos de arquivosAlguns dos atributos utilizados na declaracao dos arquivos:a) STREAMos dados do arquivo encontram-se armazenados como uma corrente continua decaracteres.b) RECORDos dados do arquivo encontram-se armazenados em blocos chamados registros.c) INPUTindica um arquivo de entrada, somente permite leitura.d) OUTPUTindica um arquivo