//BCHJOB JOB(JTBL) JOBD(QBATCH) OUTQ(QPRINT) ENDSEV(60) + LOG(4 00 *SECLVL) MSGQ(*USRPRF) /* Open source scaricabile da www.neroni.it di Claudio Neroni */ /* SE L'USO DELLA JOB DESCRIPTION "QBATCH" TI E' IMPEDITO, */ /* UTILIZZANE UNA DIVERSA. */ /* From System: "IUBICSVI" */ /* From Library: "UTI" */ /* Unload Time: 2009-01-27 17:59 */ /* To File : "JTBL" */ /* To Library : "NERONI2" */ /* To Text : "Tables. Src" */ /********* INIZIO ISTRUZIONI *******************************************/ /* LE SUCCESSIVE ISTRUZIONI PERMETTONO DI RICARICARE I SORGENTI. */ /* 1) DA UN VIDEO COMANDI DELL'AS400 RICEVENTE */ /* CREARE UN FILE SORGENTE DI LUNGHEZZA RECORD 112: */ /* CRTSRCPF FILE(NERONI2/STRINGHE) RCDLEN(112) */ /* 2) SPOSTARE IL FILE "JTBL.txt" NELL'INDIRIZZARIO */ /* DI UN PC CONNESSO IN RETE CON L'AS400 RICEVENTE */ /* (AD ES.: "c:\"). */ /* 3) DAL VIDEO COMANDI DEL PC CHIAMARE FTP: */ /* ftp nomeas400 */ /* 4) DIGITARE UTENTE E PASSWORD. */ /* 5) ESEGUIRE IL COMANDO DI COPIA DA FILE PC A MEMBRO AS400: */ /* put "c:\JTBL.txt" "/qsys.lib/NERONI2.lib/stringhe.file/JTBL.mbr" */ /* 6) ABBANDONARE FTP: */ /* quit */ /* 7) DA UN VIDEO COMANDI DELL'AS400 RICEVENTE */ /* ESEGUIRE LA STRINGA COPIATA NEL MEMBRO SORGENTE: */ /* SBMDBJOB FILE(NERONI2/STRINGHE) MBR(JTBL) JOBQ(QBATCH) */ /* LE SUCCESSIVE ISTRUZIONI PERMETTONO DI CREARE L'UTILITY. */ /* 8) DA UN VIDEO COMANDI DELL'AS400 RICEVENTE */ /* ESEGUIRE LA STRINGA O LE STRINGHE SORGENTE DI TIPO SEU "CL" */ /* (IL CUI NOME TERMINA SEMPRE CON ".") */ /* PRESENTI NEL FILE RICARICATO "NERONI2/JTBL" */ /* FACENDO ATTENZIONE ALL'ORDINE DI ESECUZIONE INDICATO NEL */ /* MEMBRO FACOLTATIVO "A.LEGGIMI", AD ESEMPIO: */ /* SBMDBJOB FILE(NERONI2/JTBL) MBR(JTBL.) JOBQ(QBATCH) */ /********* FINE ISTRUZIONI *********************************************/ /* Crea la libreria. */ MKDIR DIR('/qsys.lib/NERONI2.lib') CHGLIB LIB(NERONI2) TEXT('Utility di Claudio Neroni') /* Imposta la lista librerie. */ CHGLIBL LIBL(QTEMP NERONI2 QGPL) /* Crea il file sorgente. */ DLTF FILE(NERONI2/JTBL) CRTSRCPF FILE(NERONI2/JTBL) RCDLEN(112) + TEXT('Tables. Src') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JTBL.) TOFILE(NERONI2/JTBL) + TOMBR(JTBL.) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JTBL) MBR(JTBL.) + SRCTYPE(CL) + TEXT('Tables. CrtJs') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JTBLASCEBC) TOFILE(NERONI2/JTBL) + TOMBR(JTBLASCEBC) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JTBL) MBR(JTBLASCEBC) + SRCTYPE(TBL) + TEXT('Tables. From ASCII to EDCDIC.') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JTBLDIGIT) TOFILE(NERONI2/JTBL) + TOMBR(JTBLDIGIT) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JTBL) MBR(JTBLDIGIT) + SRCTYPE(TBL) + TEXT('Tables. From Char to Digit.') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JTBLDIGITB) TOFILE(NERONI2/JTBL) + TOMBR(JTBLDIGITB) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JTBL) MBR(JTBLDIGITB) + SRCTYPE(TBL) + TEXT('Tables. From Char to Digit no blank.') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JTBLDOWN) TOFILE(NERONI2/JTBL) + TOMBR(JTBLDOWN) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JTBL) MBR(JTBLDOWN) + SRCTYPE(TBL) + TEXT('Tables. From Uppercase to Lowercase.') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JTBLNOAPEX) TOFILE(NERONI2/JTBL) + TOMBR(JTBLNOAPEX) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JTBL) MBR(JTBLNOAPEX) + SRCTYPE(TBL) + TEXT('Tables. From apex to double apex.') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JTBLNULL) TOFILE(NERONI2/JTBL) + TOMBR(JTBLNULL) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JTBL) MBR(JTBLNULL) + SRCTYPE(TBL) + TEXT('Tables. Leave intact all characters.') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JTBLUP) TOFILE(NERONI2/JTBL) + TOMBR(JTBLUP) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JTBL) MBR(JTBLUP) + SRCTYPE(TBL) + TEXT('Tables. From Lowercase to Uppercase.') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JTBLZONE) TOFILE(NERONI2/JTBL) + TOMBR(JTBLZONE) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JTBL) MBR(JTBLZONE) + SRCTYPE(TBL) + TEXT('Tables. From Char to Zone.') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JTBLZONEB) TOFILE(NERONI2/JTBL) + TOMBR(JTBLZONEB) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JTBL) MBR(JTBLZONEB) + SRCTYPE(TBL) + TEXT('Tables. From Char to Zone no blank.') /*---------------------------------------------------------------------*/ //DATA FILE(JTBL.) FILETYPE(*SRC) ENDCHAR('//ENDSRC') //BCHJOB JOB(JTBL.) JOBD(QBATCH) OUTQ(QPRINTS) ENDSEV(60) LOG(4 00 + *SECLVL) MSGQ(*USRPRF) /* Claudio Neroni 17-03-1994 Creato. */ /* JTBL */ /* Tables. */ /* Prerequisiti: nessuno */ /* Imposta la lista librerie. */ CHGLIBL LIBL(QTEMP QGPL) ADDLIBLE LIB(NERONI2) POSITION(*AFTER QTEMP) /* Cancella gli oggetti preesistenti. */ DLTTBL TBL(NERONI2/JTBLASCEBC) DLTTBL TBL(NERONI2/JTBLDIGIT ) DLTTBL TBL(NERONI2/JTBLDIGITB) DLTTBL TBL(NERONI2/JTBLDOWN ) DLTTBL TBL(NERONI2/JTBLNOAPEX) DLTTBL TBL(NERONI2/JTBLNULL ) DLTTBL TBL(NERONI2/JTBLUP ) DLTTBL TBL(NERONI2/JTBLZONE ) DLTTBL TBL(NERONI2/JTBLZONEB ) /* Crea gli oggetti. */ CRTTBL TBL(NERONI2/JTBLASCEBC) SRCFILE(JTBL) TEXT('Tables. From ASCII to EDCDIC. ') CRTTBL TBL(NERONI2/JTBLDIGIT ) SRCFILE(JTBL) TEXT('Tables. From Char to Digit. ') CRTTBL TBL(NERONI2/JTBLDIGITB) SRCFILE(JTBL) TEXT('Tables. From Char to Digit no blank.') CRTTBL TBL(NERONI2/JTBLDOWN ) SRCFILE(JTBL) TEXT('Tables. From Uppercase to Lowercase.') CRTTBL TBL(NERONI2/JTBLNOAPEX) SRCFILE(JTBL) TEXT('Tables. From apex to double apex. ') CRTTBL TBL(NERONI2/JTBLNULL ) SRCFILE(JTBL) TEXT('Tables. Leave intact all characters.') CRTTBL TBL(NERONI2/JTBLUP ) SRCFILE(JTBL) TEXT('Tables. From Lowercase to Uppercase.') CRTTBL TBL(NERONI2/JTBLZONE ) SRCFILE(JTBL) TEXT('Tables. From Char to Zone. ') CRTTBL TBL(NERONI2/JTBLZONEB ) SRCFILE(JTBL) TEXT('Tables. From Char to Zone no blank. ') //ENDBCHJOB //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JTBLASCEBC) FILETYPE(*SRC) ENDCHAR('//ENDSRC') 1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C 405A7F7B5B5C507D4D5D5C4E6B604B61F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F 7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6D7D8D9E2E3E4E5E6E7E8E9ADE0BD5F6D 79818283848586878889919293949596979899A2A3A4A5A6A7A8A9C04FD0A11C 1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C 1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C 1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C 1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JTBLDIGIT) FILETYPE(*SRC) ENDCHAR('//ENDSRC') F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JTBLDIGITB) FILETYPE(*SRC) ENDCHAR('//ENDSRC') F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 40F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6F0F1F2F3F4F5F6F7F8F9C1C2C3C4C5C6 //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JTBLDOWN) FILETYPE(*SRC) ENDCHAR('//ENDSRC') 000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F 202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F 404142434445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F 606162636465666768696A6B6C6D6E6F707172737475767778797A7B7C7D7E7F 808182838485868788898A8B8C8D8E8F909192939495969798999A9B9C9D9E9F A0A1A2A3A4A5A6A7A8A9AAABACADAEAFB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF C0818283848586878889CACBCCCDCECFD0919293949596979899DADBDCDDDEDF E0E1A2A3A4A5A6A7A8A9EAEBECEDEEEFF0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JTBLNOAPEX) FILETYPE(*SRC) ENDCHAR('//ENDSRC') 000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F 202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F 404142434445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F 606162636465666768696A6B6C6D6E6F707172737475767778797A7B7C7F7E7F 808182838485868788898A8B8C8D8E8F909192939495969798999A9B9C9D9E9F A0A1A2A3A4A5A6A7A8A9AAABACADAEAFB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF C0C1C2C3C4C5C6C7C8C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEFF0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JTBLNULL) FILETYPE(*SRC) ENDCHAR('//ENDSRC') 000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F 202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F 404142434445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F 606162636465666768696A6B6C6D6E6F707172737475767778797A7B7C7D7E7F 808182838485868788898A8B8C8D8E8F909192939495969798999A9B9C9D9E9F A0A1A2A3A4A5A6A7A8A9AAABACADAEAFB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF C0C1C2C3C4C5C6C7C8C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEFF0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JTBLUP) FILETYPE(*SRC) ENDCHAR('//ENDSRC') 000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F 202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F 404142434445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F 606162636465666768696A6B6C6D6E6F707172737475767778797A7B7C7D7E7F 80C1C2C3C4C5C6C7C8C98A8B8C8D8E8F90D1D2D3D4D5D6D7D8D99A9B9C9D9E9F A0A1E2E3E4E5E6E7E8E9AAABACADAEAFB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF C0C1C2C3C4C5C6C7C8C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEFF0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JTBLZONE) FILETYPE(*SRC) ENDCHAR('//ENDSRC') F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1 F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3 F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5 F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7 F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9 C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2 C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4 C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6 //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JTBLZONEB) FILETYPE(*SRC) ENDCHAR('//ENDSRC') F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1F1 F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F2F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3F3 40F4F4F4F4F4F4F4F4F4F4F4F4F4F4F4F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5F5 F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F6F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7 F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F8F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9 C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C1C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2 C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C3C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4 C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C5C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6C6 //ENDSRC //ENDBCHJOB