//BCHJOB   JOB(JFIDSS) 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-28 17:09                                      */
/* To File    :  "JFIDSS"                                              */
/* To Library :  "NERONI2"                                             */
/* To Text    :  "File information data structure. 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 "JFIDSS.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:\JFIDSS.txt" "/qsys.lib/NERONI2.lib/stringhe.file/JFIDSS.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(JFIDSS) 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/JFIDSS"                    */
/*    FACENDO ATTENZIONE ALL'ORDINE DI ESECUZIONE INDICATO NEL         */
/*    MEMBRO FACOLTATIVO "A.LEGGIMI", AD ESEMPIO:                      */
/*    SBMDBJOB FILE(NERONI2/JFIDSS) MBR(JFIDSS.) 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/JFIDSS)
CRTSRCPF   FILE(NERONI2/JFIDSS) RCDLEN(112) +
             TEXT('File information data structure. Src')
/* Copia il sorgente dalla stringa al membro del file sorgente.        */
/* Modifica testo e tipo seu del sorgente caricato.                    */
CPYF       FROMFILE(JFIDS) TOFILE(NERONI2/JFIDSS) +
             TOMBR(JFIDS) MBROPT(*REPLACE) SRCOPT(*SEQNBR)
CHGPFM     FILE(NERONI2/JFIDSS) MBR(JFIDS) +
             SRCTYPE(PF) +
             TEXT('File information data structure. Fids')
/* Copia il sorgente dalla stringa al membro del file sorgente.        */
/* Modifica testo e tipo seu del sorgente caricato.                    */
CPYF       FROMFILE(JFIDS.) TOFILE(NERONI2/JFIDSS) +
             TOMBR(JFIDS.) MBROPT(*REPLACE) SRCOPT(*SEQNBR)
CHGPFM     FILE(NERONI2/JFIDSS) MBR(JFIDS.) +
             SRCTYPE(CL) +
             TEXT('File information data structure. CrtJs')
/*---------------------------------------------------------------------*/
//DATA     FILE(JFIDS) FILETYPE(*SRC) ENDCHAR('//ENDSRC')
      * Claudio Neroni 10/05/1995 Creato.
     A          R FIDS
     A                                      TEXT('File Information +
     A                                      Data Structure.')
     A            FIDS01         8
     A                                      COLHDG('...')
     A            FIDSOP         1
     A                                      COLHDG('File' 'open')
     A            FIDS02         1
     A                                      COLHDG('...')
     A            FIDSST         5
     A                                      COLHDG('Status' 'code')
     A            FIDS03        30
     A                                      COLHDG('...')
     A            FIDSER         7
     A                                      COLHDG('Error' 'code')
     A            FIDS04        30
     A                                      COLHDG('...')
     A            FIDSFI        10
     A                                      COLHDG('File')
     A            FIDSLB        10
     A                                      COLHDG('Library')
     A            FIDS05        26
     A                                      COLHDG('...')
     A            FIDSMB        10
     A                                      COLHDG('Member')
     A            FIDS06        13
     A                                      COLHDG('...')
     A            FIDSFL         4B
     A                                      COLHDG('Forms lines or' +
     A                                      'workstation lines')
     A            FIDS07         2
     A                                      COLHDG('...')
     A            FIDSNR         9B
     A                                      COLHDG('Record quantity' +
     A                                      'in input file' 'at open')
     A            FIDSAT         2
     A                                      COLHDG('Access' 'type')
     A            FIDS08         1
     A                                      COLHDG('...')
     A            FIDSSO         1
     A                                      COLHDG('Source' 'file' 'flag')
     A            FIDS09        24
     A                                      COLHDG('...')
     A            FIDSOL         4B
     A                                      COLHDG('Overflow' 'line')
     A            FIDS10        71
     A                                      COLHDG('...')
     A            FIDSRE        10
     A                                      COLHDG('Last record' 'format' +
     A                                      'processed')
     A            FIDSDC         2
     A                                      COLHDG('Device' 'class')
     A            FIDS11        10
     A                                      COLHDG('...')
     A            FIDSLE         9B
     A                                      COLHDG('First read' 'record' +
     A                                      'length')
     A            FIDS12        80
     A                                      COLHDG('...')
     A            FIDSCL         4B
     A                                      COLHDG('Current' 'line')
     A            FIDS13         1
     A                                      COLHDG('...')
     A            FIDSLP         2
     A                                      COLHDG('Line/' 'position')
     A            FIDS14        25
     A                                      COLHDG('...')
     A            FIDSRR         9B
     A                                      COLHDG('Relative' 'record number' +
     A                                      'in data member')
//ENDSRC
/*---------------------------------------------------------------------*/
//DATA     FILE(JFIDS.) FILETYPE(*SRC) ENDCHAR('//ENDSRC')
//BCHJOB   JOB(JFIDS.) JOBD(QBATCH) OUTQ(QPRINTS) ENDSEV(60) LOG(4 +
             00 *SECLVL) MSGQ(*USRPRF)

/* Claudio Neroni 01/10/2000 Creato.                                   */

/* JFIDS                                                               */
/* File information data structure.                                    */
/* Prerequisiti: nessuno                                               */

/* Imposta la lista librerie.                                          */
CHGLIBL    LIBL(QTEMP QGPL)
ADDLIBLE   LIB(NERONI2) POSITION(*AFTER QTEMP)

/* Cancella gli oggetti preesistenti.                                  */
DLTF       FILE(NERONI2/JFIDS)

/* Crea gli oggetti.                                                   */
CRTPF      FILE(NERONI2/JFIDS) SRCFILE(JFIDSS) MBR(*NONE)

//ENDBCHJOB
//ENDSRC
//ENDBCHJOB