//BCHJOB   JOB(JSIGN) JOBD(NERONI2/NERONI2) OUTQ(QPRINT) +
             ENDSEV(60) LOG(4 00 *SECLVL) MSGQ(*USRPRF)
/* Open source scaricabile da www.neroni.it                            */
/* LA JOB DESCRIPTION "NERONI2/NERONI2" DEVE PREESISTERE. PUO' ESSERE  */
/* IDENTICA A QBATCH E PUO' ESSERE SOSTITUITA DA QBATCH O SIMILE.      */
/* From System:  "S65D69DA"                                            */
/* From Library: "NERONI2"                                             */
/* Unload Time:  2014-05-26 18:37                                      */
/* To File    :  "JSIGN"                                               */
/* To Library :  "NERONI2"                                             */
/* To Text    :  "Query sign. 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 "JSIGN.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:\JSIGN.txt" "/qsys.lib/NERONI2.lib/stringhe.file/JSIGN.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(JSIGN) 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/JSIGN"                     */
/*    FACENDO ATTENZIONE ALL'ORDINE DI ESECUZIONE INDICATO NEL         */
/*    MEMBRO FACOLTATIVO "A.LEGGIMI", AD ESEMPIO:                      */
/*    SBMDBJOB FILE(NERONI2/JSIGN) MBR(JSIGN.) 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/JSIGN)
CRTSRCPF   FILE(NERONI2/JSIGN) RCDLEN(112) +
             TEXT('Query sign. Src')
/* Copia il sorgente dalla stringa al membro del file sorgente.        */
/* Modifica testo e tipo seu del sorgente caricato.                    */
CPYF       FROMFILE(JSIGNF) TOFILE(NERONI2/JSIGN) +
             TOMBR(JSIGNF) MBROPT(*REPLACE) SRCOPT(*SEQNBR)
CHGPFM     FILE(NERONI2/JSIGN) MBR(JSIGNF) +
             SRCTYPE(PF) +
             TEXT('Query sign. Sign')
/*---------------------------------------------------------------------*/
//DATA     FILE(JSIGNF) FILETYPE(*SRC) ENDCHAR('//ENDSRC')
      * Claudio Neroni 26-05-2014 Creato.
      *   Il presente file dotato dei due seguenti record:
      *     FLAG  SIGN  DEBIT  CREDIT
      *       D    -1     +1      0
      *       A    +1      0     +1
      *    può essere agganciato nei query per recuperare
      *    il segno positivo di un addendo DARE
      *    o il segno negativo di un addendo AVERE
      *    purché sul record sia presente un flag Dare/Avere.
      *    E' possibile anche incolonnare un valore sotto DARE o AVERE
      *    facendo uso dei moltiplicatori DEBIT e CREDIT.
     A          R JSIGNR
     A                                      TEXT('Query sign. Sign')
     A            FLAG           1
     A                                      COLHDG('Sign' +
     A                                             'Flag')
     A            SIGN           1  0
     A                                      COLHDG('Sign' +
     A                                             'Multiplier')
     A                                      VALUES(+1 -1)
     A            DEBIT          1  0
     A                                      COLHDG('Debit Column' +
     A                                             'Multiplier')
     A                                      VALUES(+1 0)
     A            CREDIT         1  0
     A                                      COLHDG('Credit Column' +
     A                                             'Multiplier')
     A                                      VALUES(+1 0)
//ENDSRC
//ENDBCHJOB