copia ate 200 registros 001500 /* ...... ============================= B O T T O M ==============================EXEMPLO 02 - INCLUDE SELECIONANDO E COPIANDOSELECIONAR POR SITUACAO DO CONTRATO (somente '00' e '02') COPIA NA MESMA ORDEM ...... ================================ T O P =================================000100 //RP68SO03 JOB (1,'TP=TNDS'),'EDMILS',CLASS=3, 000200 // MSGCLASS=R,MSGLEVEL=1,REGION=2048K 000300 /*JOBPARM R=1108,P=PROC03 000400 //*-------------------------------------------------------------------* 000500 //* USO DO OMIT 000501 //* SORT EXCLUIR POR SIT CONTRATO (0 OU 2) 000600 //* FAZ COPIA E MANTEM A ORDEM 000700 //*-------------------------------------------------------------------* 000800 //SORT0106 EXEC RSORTD 000900 //SORTIN DD DSN=RPY.EDMIL.INTE.POSI,DISP=SHR 001000 //SORTOUT DD DSN=RPY.EDMIL.INTE.POSIS1,DISP=(OLD,CATLG,DELETE), 001100 // UNIT=FIXO,SPACE=(CYL,(100,20)),DCB=*.SORTIN 001200 //SYSIN DD * 001300 OMIT COND(13,2,CH,EQ,C'00',OR,13,2,CH,EQ,C'02') 001400 SORT FIELDS=COPY 001500 /* ...... ============================= B O T T O M ============================== EXEMPLO 03 - OMIT SELECIONANDO E COPIANDOSELECIONAR POR SITUACAO DO CONTRATO (somente '00' e '02') COPIA NA MESMA ORDEM ...... ================================ T O P =================================000100 //RP68SO03 JOB (1,'TP=TNDS'),'EDMILS',CLASS=3, 000200 // MSGCLASS=R,MSGLEVEL=1,REGION=2048K 000300 /*JOBPARM R=1108,P=PROC03 000400 //*-------------------------------------------------------------------* 000500 //* USO DO OMIT 000501 //* SORT EXCLUIR POR SIT CONTRATO (0 OU 2) 000600 //* FAZ COPIA E MANTEM A ORDEM 000700 //*-------------------------------------------------------------------* 000800 //SORT0106 EXEC RSORTD 000900 //SORTIN DD DSN=RPY.EDMIL.INTE.POSI,DISP=SHR 001000 //SORTOUT DD DSN=RPY.EDMIL.INTE.POSIS1,DISP=(OLD,CATLG,DELETE), 001100 // UNIT=FIXO,SPACE=(CYL,(100,20)),DCB=*.SORTIN 001200 //SYSIN DD * 001300 OMIT COND(13,2,CH,EQ,C'00',OR,13,2,CH,EQ,C'02') 001400 SORT FIELDS=COPY 001500 /* ...... ============================= B O T T O M ==============================EXEMPLO 04 - INCLUDE + OMIT + SORT SELECIONANDO REGISTRO E CAMPOS DE ENTRADA ORDENADOSELECIONAR POR SITUACAO DO CONTRATO (somente '00' e '02') COPIA NA MESMA ORDEM TOTALIZAR POR VALORES selecionar os contratos que tiveram saldo do ativo abaixo de R$1.000,00Selecionar os campos contrato, situacao e data de vencimentoordenar por situacao do contrato, contrato e data de vencimento <...+....1....+....2....+....3....+....4....+....5....+....6....+....7........ ================================ T O P =================================000100 //RP68SO04 JOB (1,'TP=TNDS'),'EDMILS',CLASS=3, 000200 // MSGCLASS=R,MSGLEVEL=1,REGION=2048K 000300 /*JOBPARM R=1108,P=PROC03 000400 //*-------------------------------------------------------------------* 000500 //* USO DO INCLUDE + INREC + SORT 000600 //* - SELECIONA CONTRATOS COM SALDO DEV MENOR QUE 1000 OU MAIOR 3000 000700 //* - RECUPERA APENAS OS CAMPOS CONTRATO, SITUACaO E SALDO DEVEDOR 000701 //* - CLASSIFICA PELA SITUACAO DO CONTRA 000702 //* - CLASSIFICA PELA NUMERO DO CONTRATO 000800 //*-------------------------------------------------------------------* 000900 //SORT0106 EXEC RSORTD 001000 //SORTIN DD DSN=RPY.EDMIL.INTE.POSI,DISP=SHR 001100 //SORTOUT DD DSN=RPY.EDMIL.INTE.POSIS1,DISP=(,CATLG,DELETE), 001200 // UNIT=FIXO,SPACE=(CYL,(100,20)),DCB=*.SORTIN 001300 //SYSIN DD * 001400 INCLUDE COND(57,15,CH,LE,C'1000',OR,57,15,CH,GE,C'3000') 001500 INREC FIELDS=(1,11,13,2,57,15) 001600 SORT FIELDS=(13,2,CH,A,1,11,CH,A) 001700 /* ...... ============================= B O T T O M ==============================EXEMPLO 05 - INREC + SORT + SUM SUMARIZANDO REGISTROS E TOTALIZANDO SELECIONANDO REGISTRO E CAMPOS DE ENTRADA ORDENADOPARA OS REGISTROS COM A MESMA SITUACAO DO CONTRANTO, SUMARIZAR LO EM UM UNICO REGISTROCONTENDO A TOTALIZACAO DO CAMPO QUANTIDADE, PARA EVITAR ESTOURO DO CAMPO QUANTIDADE ACRESCETAR2 BYTES VIA COMANDO INREC <...+....1....+....2....+....3....+....4....+....5....+....6....+....7........ ================================ T O P =================================000100 //RP68SO05 JOB (1,'TP=TNDS'),'EDMILS',CLASS=3, 000200 // MSGCLASS=R,MSGLEVEL=1,REGION=2048K 000300 /*JOBPARM R=1108,P=PROC03 000400 //*-------------------------------------------------------------------* 000500 //*-------------------------------------------------------------------* 000600 //SORT0106 EXEC RSORTD 000700 //SORTIN DD DSN=RPY.EDMIL.INTE.POSI,DISP=SHR 000800 //SORTOUT DD DSN=RPY.EDMIL.INTE.POSIS1,DISP=(OLD,CATLG,DELETE), 000900 // UNIT=FIXO,SPACE=(CYL,(100,20)),DCB=*.SORTIN 001000 //SYSIN DD * 001100 INREC FIELDS=(1,11,13,2,57,15) 001200 SORT FIELDS=(13,2,ZD,A,1,11,ZD,A) 001300 SUM FIELDS=(13,02,ZD) 001400 /* ...... ============================= B O T T O M ==============================EXEMPLO 06 - INREC + SORT + SUM SUMARIZANDO REGISTROS E TOTALIZANDO CAMPOS SELECIONANDO REGISTRO E CAMPOS DE ENTRADA ORDENADOPARA OS REGISTROS COM A MESMA SITUACAO DO CONTRANTO, SUMARIZAR LO EM UM UNICO