//BCHJOB   JOB(JLINGUA) 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:  2008-11-04 15:29                                      */
/* To File    :  "JLINGUA"                                             */
/* To Library :  "NERONI2"                                             */
/* To Text    :  "Esempio di costanti a video tramite messaggi"        */
/********* 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 "JLINGUA.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:\JLINGUA.txt" "/qsys.lib/NERONI2.lib/stringhe.file/JLINGUA.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(JLINGUA) 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/JLINGUA"                   */
/*    FACENDO ATTENZIONE ALL'ORDINE DI ESECUZIONE INDICATO NEL         */
/*    MEMBRO FACOLTATIVO "A.LEGGIMI", AD ESEMPIO:                      */
/*    SBMDBJOB FILE(NERONI2/JLINGUA) MBR(JLINGUA.) 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/JLINGUA)
CRTSRCPF   FILE(NERONI2/JLINGUA) RCDLEN(112) +
             TEXT('Esempio di costanti a video tramite messaggi')
/* Copia il sorgente dalla stringa al membro del file sorgente.        */
/* Modifica testo e tipo seu del sorgente caricato.                    */
CPYF       FROMFILE(JLINGUAALT) TOFILE(NERONI2/JLINGUA) +
             TOMBR(JLINGUAALT) MBROPT(*REPLACE) SRCOPT(*SEQNBR)
CHGPFM     FILE(NERONI2/JLINGUA) MBR(JLINGUAALT) +
             SRCTYPE(CL) +
             TEXT('Messaggi per costanti video Alternativo')
/* Copia il sorgente dalla stringa al membro del file sorgente.        */
/* Modifica testo e tipo seu del sorgente caricato.                    */
CPYF       FROMFILE(JLINGUAENG) TOFILE(NERONI2/JLINGUA) +
             TOMBR(JLINGUAENG) MBROPT(*REPLACE) SRCOPT(*SEQNBR)
CHGPFM     FILE(NERONI2/JLINGUA) MBR(JLINGUAENG) +
             SRCTYPE(CL) +
             TEXT('Messaggi per costanti video Inglese')
/* Copia il sorgente dalla stringa al membro del file sorgente.        */
/* Modifica testo e tipo seu del sorgente caricato.                    */
CPYF       FROMFILE(JLINGUAITA) TOFILE(NERONI2/JLINGUA) +
             TOMBR(JLINGUAITA) MBROPT(*REPLACE) SRCOPT(*SEQNBR)
CHGPFM     FILE(NERONI2/JLINGUA) MBR(JLINGUAITA) +
             SRCTYPE(CL) +
             TEXT('Messaggi per costanti video Italiano')
/* Copia il sorgente dalla stringa al membro del file sorgente.        */
/* Modifica testo e tipo seu del sorgente caricato.                    */
CPYF       FROMFILE(JLINGUAW) TOFILE(NERONI2/JLINGUA) +
             TOMBR(JLINGUAW) MBROPT(*REPLACE) SRCOPT(*SEQNBR)
CHGPFM     FILE(NERONI2/JLINGUA) MBR(JLINGUAW) +
             SRCTYPE(DSPF) +
             TEXT('Esempio di costanti a video tramite messaggi')
/*---------------------------------------------------------------------*/
//DATA     FILE(JLINGUAALT) FILETYPE(*SRC) ENDCHAR('//ENDSRC')
/* Messaggi per costanti video Alternativo                                                        */
DLTMSGF    MSGF(NERONI2/JLINGUA)
CRTMSGF    MSGF(NERONI2/JLINGUA)
ADDMSGD    MSGID(COS0001) MSGF(NERONI2/JLINGUA) MSG('Trapulin') +
             SECLVL('BellaGioia') FMT((*CHAR 12))
ADDMSGD    MSGID(COS0002) MSGF(NERONI2/JLINGUA) MSG('CheCiapaIRat') +
             SECLVL('DellaMamma') FMT((*CHAR 12))
//ENDSRC
/*---------------------------------------------------------------------*/
//DATA     FILE(JLINGUAENG) FILETYPE(*SRC) ENDCHAR('//ENDSRC')
/* Messaggi per costanti video Inglese                                                            */
DLTMSGF    MSGF(NERONI2/JLINGUA)
CRTMSGF    MSGF(NERONI2/JLINGUA)
ADDMSGD    MSGID(COS0001) MSGF(NERONI2/JLINGUA) MSG('FineJoy') +
             SECLVL('BellaGioia') FMT((*CHAR 12))
ADDMSGD    MSGID(COS0002) MSGF(NERONI2/JLINGUA) MSG('OfMother') +
             SECLVL('DellaMamma') FMT((*CHAR 12))
//ENDSRC
/*---------------------------------------------------------------------*/
//DATA     FILE(JLINGUAITA) FILETYPE(*SRC) ENDCHAR('//ENDSRC')
/* Messaggi per costanti video Italiano                                                           */
DLTMSGF    MSGF(NERONI2/JLINGUA)
CRTMSGF    MSGF(NERONI2/JLINGUA)
ADDMSGD    MSGID(COS0001) MSGF(NERONI2/JLINGUA) MSG('BellaGioia') +
             SECLVL('BellaGioia') FMT((*CHAR 12))
ADDMSGD    MSGID(COS0002) MSGF(NERONI2/JLINGUA) MSG('DellaMamma') +
             SECLVL('DellaMamma') FMT((*CHAR 12))
//ENDSRC
/*---------------------------------------------------------------------*/
//DATA     FILE(JLINGUAW) FILETYPE(*SRC) ENDCHAR('//ENDSRC')
     A                                      DSPSIZ(24 80 *DS3)
     A          R W1
     A                                  2 10'La costante è visibile in SDA ma v-
     A                                      iene incorporata compilando'
     A                                  3 10'Msgcon:'
     A                                  3 18MSGCON(012 COS0001 JLINGUA)
     A                                      DSPATR(HI)
     A                                  5 10'La costante non è visibile in SDA -
     A                                      ma viene presentata dinamicamente'
     A                                  6 10'in esecuzione'
     A                                  7 10'Msgid :'
     A            CAMPO         12A  O  7 18MSGID(COS0002 JLINGUA)
     A                                      DSPATR(HI)
//ENDSRC
//ENDBCHJOB