//BCHJOB JOB(JLINK) 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: 2015-06-16 12:10 */ /* To File : "JLINK" */ /* To Library : "NERONI2" */ /* To Text : "Display Link. 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 "JLINK.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:\JLINK.txt" "/qsys.lib/NERONI2.lib/stringhe.file/JLINK.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(JLINK) 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/JLINK" */ /* FACENDO ATTENZIONE ALL'ORDINE DI ESECUZIONE INDICATO NEL */ /* MEMBRO FACOLTATIVO "A.LEGGIMI", AD ESEMPIO: */ /* SBMDBJOB FILE(NERONI2/JLINK) MBR(JLINK.) 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/JLINK) CRTSRCPF FILE(NERONI2/JLINK) RCDLEN(112) + TEXT('Display Link. Src') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JLINK) TOFILE(NERONI2/JLINK) + TOMBR(JLINK) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JLINK) MBR(JLINK) + SRCTYPE(CMD) + TEXT('Display Link. Cmd') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JLINK.) TOFILE(NERONI2/JLINK) + TOMBR(JLINK.) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JLINK) MBR(JLINK.) + SRCTYPE(CL) + TEXT('Display Link. CrtJs') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JLINKC) TOFILE(NERONI2/JLINK) + TOMBR(JLINKC) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JLINK) MBR(JLINKC) + SRCTYPE(CLLE) + TEXT('Display Link. Cpp') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JLINKD) TOFILE(NERONI2/JLINK) + TOMBR(JLINKD) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JLINK) MBR(JLINKD) + SRCTYPE(RPGLE) + TEXT('Display Link. WriteOutFile') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JLINKP) TOFILE(NERONI2/JLINK) + TOMBR(JLINKP) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JLINK) MBR(JLINKP) + SRCTYPE(PNLGRP) + TEXT('Display Link. Help') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JLINKSAMPL) TOFILE(NERONI2/JLINK) + TOMBR(JLINKSAMPL) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JLINK) MBR(JLINKSAMPL) + SRCTYPE(TXT) + TEXT('Display Link. Sample') /* Copia il sorgente dalla stringa al membro del file sorgente. */ /* Modifica testo e tipo seu del sorgente caricato. */ CPYF FROMFILE(JLINK1) TOFILE(NERONI2/JLINK) + TOMBR(JLINK1) MBROPT(*REPLACE) SRCOPT(*SEQNBR) CHGPFM FILE(NERONI2/JLINK) MBR(JLINK1) + SRCTYPE(PF) + TEXT('Display Link. OutFile') /*---------------------------------------------------------------------*/ //DATA FILE(JLINK) FILETYPE(*SRC) ENDCHAR('//ENDSRC') /* Claudio Neroni 13-01-2009 Creato. */ CMD PROMPT('Display Link') PARM KWD(FROMDIR) TYPE(*PNAME) LEN(256) + SPCVAL(('/home/mydir/*')) MIN(1) + PROMPT('From Directory') PARM KWD(OUTFILE) TYPE(OUTFILE) PROMPT('Output + File') OUTFILE: QUAL TYPE(*NAME) DFT(JLINKT) QUAL TYPE(*NAME) DFT(QTEMP) MIN(0) PROMPT('in + library') //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JLINK.) FILETYPE(*SRC) ENDCHAR('//ENDSRC') //BCHJOB JOB(JLINK.) JOBD(NERONI2/NERONI2) OUTQ(QPRINTS) + ENDSEV(60) LOG(4 00 *SECLVL) MSGQ(*USRPRF) /* Claudio Neroni 13-01-2009 Creato. */ /* JLINK */ /* Display Link. */ /* Prerequisiti: JRSNMSG, JCPYCLR */ /* Imposta la lista librerie. */ CHGLIBL LIBL(QTEMP QGPL) ADDLIBLE LIB(NERONI2) POSITION(*AFTER QTEMP) /* Cancella gli oggetti preesistenti. */ DLTF FILE(NERONI2/JLINK1) DLTCMD CMD(NERONI2/JLINK) DLTPNLGRP PNLGRP(NERONI2/JLINKP) DLTPGM PGM(NERONI2/JLINKC) DLTPGM PGM(NERONI2/JLINKD) /* Crea gli oggetti. */ CRTPF FILE(NERONI2/JLINK1) SRCFILE(JLINK) SIZE(*NOMAX) CRTBNDCL PGM(NERONI2/JLINKC) SRCFILE(JLINK) TGTRLS(*CURRENT) + DBGVIEW(*ALL) CRTBNDRPG PGM(NERONI2/JLINKD) SRCFILE(JLINK) DBGVIEW(*ALL) + TGTRLS(*CURRENT) CRTPNLGRP PNLGRP(NERONI2/JLINKP) SRCFILE(JLINK) CRTCMD CMD(NERONI2/JLINK) PGM(JLINKC) SRCFILE(JLINK) + HLPPNLGRP(JLINKP) HLPID(CMD) PRDLIB(NERONI2) //ENDBCHJOB //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JLINKC) FILETYPE(*SRC) ENDCHAR('//ENDSRC') /* Display Link. Cpp */ /* Claudio Neroni 12-01-2009 Creato. */ /* */ PGM PARM(&FROMDIR &OUTFILEQ) /* Riceve Nome indirizzario di provenienza. */ DCL VAR(&FROMDIR) TYPE(*CHAR) LEN(256) /* Riceve Nome qualificato del file di emissione. */ DCL VAR(&OUTFILEQ) TYPE(*CHAR) LEN(20) /* File di emissione. */ DCL VAR(&OUTFILE) TYPE(*CHAR) LEN(10) /* Libreria del File di emissione. */ DCL VAR(&OUTLIB) TYPE(*CHAR) LEN(10) /* Release non conosciuto. */ DCL VAR(&RELNOTKNW) TYPE(*LGL) /* Prenotazione del CPF0001. */ DCL VAR(&CPF0001) TYPE(*LGL) /* Intercetta gli errori. */ MONMSG MSGID(CPF0000 MCH0000 CEE0000) EXEC(GOTO + CMDLBL(ERRORE)) /* Estrae parametri. */ CHGVAR VAR(&OUTFILE) VALUE(%SST(&OUTFILEQ 1 10)) CHGVAR VAR(&OUTLIB) VALUE(%SST(&OUTFILEQ 11 10)) /* Controlla l'esistenza del file di lavoro. */ CHKOBJ OBJ(QTEMP/JLINK9) OBJTYPE(*FILE) MBR(*FIRST) /* Se manca, lo crea. */ MONMSG MSGID(CPF0000) EXEC(DO) CRTPF FILE(QTEMP/JLINK9) RCDLEN(133) TEXT('Display + Link. WrkF') SIZE(*NOMAX) ENDDO /* Crea il file di emissione. */ JCPYCLR FROMFILE(JLINK1) TOFILE(&OUTLIB/&OUTFILE) /* Ridirige l'emissione della stampa. */ OVRPRTF FILE(QSYSPRT) FORMTYPE(JLINK) + SCHEDULE(*JOBEND) HOLD(*YES) SPLFNAME(JLINK) /* Stampa il contenuto dell'indirizzario. */ DSPLNK OBJ(&FROMDIR) OUTPUT(*PRINT) DETAIL(*NAME) /* Copia la stampa nel file di lavoro. */ CPYSPLF FILE(JLINK) TOFILE(QTEMP/JLINK9) SPLNBR(*LAST) + CTLCHAR(*FCFC) /* Cancella la stampa. */ DLTSPLF FILE(JLINK) SPLNBR(*LAST) /* Ridirige la lettura sulla copia dello spool. */ OVRDBF FILE(JLINK9) TOFILE(QTEMP/JLINK9) /* Ridirige la scrittura sul file di emissione. */ OVRDBF FILE(JLINK1) TOFILE(&OUTLIB/&OUTFILE) /* Chiama la trascrizione del file di lavoro. */ CALL PGM(JLINKD) PARM(&RELNOTKNW) /* Se il release non è previsto dal programma di trascrizione, */ /* segnala e abbandona. */ IF COND(&RELNOTKNW) THEN(DO) SNDPGMMSG MSG('Il release corrente della macchina non + è gestito dal presente comando. + Necessario aggiornamento del software.') + MSGTYPE(*DIAG) GOTO CMDLBL(CPF0001) ENDDO /* Messaggia per esito felice. */ SNDPGMMSG MSG('Creato in' *BCAT &OUTLIB *TCAT '/' + *TCAT &OUTFILE *BCAT 'l''elenco IFS dei + file presenti in "' *TCAT &FROMDIR *TCAT + '".') /* Salta all'esecuzione delle attività finali. */ GOTO CMDLBL(RCLRSC) /* Label di esecuzione delle attività finali. */ RCLRSC: /* Riacquisisce le risorse. */ RCLRSC MONMSG MSGID(CPF0000 MCH0000) /* Se richiesto, rilascia il CPF0001. */ IF COND(&CPF0001) THEN(DO) SNDPGMMSG MSGID(CPF0001) MSGF(QCPFMSG) MSGDTA(JLINK) + MSGTYPE(*ESCAPE) MONMSG MSGID(CPF0000 MCH0000) ENDDO /* Ritorna. */ RETURN /* Label di errore. */ ERRORE: /* Restituisce i messaggi al chiamante, */ /* trasformando eventuali escape in diagnostici. */ JRSNMSG RMV(*NO) MONMSG MSGID(CPF0000 MCH0000) /* Label di prenotazione del CPF0001. */ CPF0001: /* Prenota il CPF0001. */ CHGVAR VAR(&CPF0001) VALUE('1') MONMSG MSGID(CPF0000 MCH0000) /* Salta alle attività finali. */ GOTO CMDLBL(RCLRSC) ENDPGM //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JLINKD) FILETYPE(*SRC) ENDCHAR('//ENDSRC') /TITLE Display Link. WriteOutFile * Claudio Neroni 13-01-2009 Creato. *--------------------------------------------------------------------------------------------- * Riceve dal file di lavoro l'output su stampa * del comando DSPLNK eseguito su un indirizzario IFS. * Interpreta i dati per estrapolare l'elenco * pulito dei file che giacciono nell'indirizzario. * ATTENZIONE: Previsti release * V5R4M0 italiano * V5R3M0 italiano * V6R1M0 italiano * V5R3M0 inglese * V7R1M0 italiano * Per altri release o lingue, * aggiungere nelle schiere le immagini prese dalla stampa * e controllare il tracciato di lettura. *--------------------------------------------------------------------------------------------- * Output di DSPLNK. Fjlink9 ip f 133 disk * OutFile. Elenco pulito dei file nell'indirizzario IFS. Fjlink1 o e disk *--------------------------------------------------------------------------------------------- * Immagini dei primi caratteri dei record di stampa * da scartare. D scarta s 25 dim(55) ctdata perrcd(1) * Immagini dei primi caratteri dei record di stampa * che iniziano il dettaglio dei nomi lunghi. D lunghi s 25 dim(05) ctdata perrcd(1) *--------------------------------------------------------------------------------------------- * Flag di rilevato inizio dei nomi lunghi. D iniziati s 1 * Ricomposizione dei nomi lunghi. D ricomposto ds D due 2 D continua 76 dim(4) *--------------------------------------------------------------------------------------------- * Lunghezza del campo Nome del file. D len s 5 0 inz(%len(filnam)) *--------------------------------------------------------------------------------------------- * Legge la riga di stampa. Ijlink9 no I 1 25 identifica I 3 67 nomebreve I 3 4 primidue I 3 80 nomelungo1 I 5 80 nomelungo2 I 69 69 maggiore *--------------------------------------------------------------------------------------------- * Elabora il record. C do * Conta i record. C add 1 cnt 10 0 * Se il secondo record non è presente * nella schiera dei record da scartare, * ritorna subito con flag di release non conosciuto. C if cnt=2 C if %lookup(identifica:scarta) = *zero C eval relnotknw=*on C return C endif C endif * Scarta i record presenti nell'elenco da scartare. C if %lookup(identifica:scarta) <> *zero C leave C endif * Scarta i record che portano nomi brevi troncati. C if maggiore = '>' C leave C endif * Se corre il record di intestazione dei nomi lunghi. C if %lookup(identifica:lunghi) <> *zero * Annota l'inizio dell'elenco nomi lunghi. C eval iniziati = *on * Abbandona. C leave * Se corre il record di intestazione dei nomi lunghi. C endif * Se non è ancora iniziato l'elenco nomi lunghi, C if iniziati <> *on * Emette il record come nome breve. C eval filnam = nomebreve C exsr TiSpiezzoInDue C write fil * Abbandona. C leave * Se non è ancora iniziato l'elenco nomi lunghi, C endif * Se corre un record prima parte nome lungo. C if primidue <> *blank * Se in canna c'è un nome lungo da scaricare. C if ricomposto <> *blank * Emette il nome lungo. C movel(p) ricomposto filnam C exsr TiSpiezzoInDue C write fil * Se in canna c'è un nome lungo da scaricare. C endif * Pulisce l'accantonamento. C clear ricomposto C z-add 1 ix 3 0 * Accantona il record corrente come prima parte * del nuovo nome. C eval due = primidue C eval continua(ix) = nomelungo2 * Abbandona. C leave * Se corre un record prima parte nome lungo. C endif * Accantona il record corrente come continuazione del nome. C add 1 ix C eval continua(ix) = nomelungo2 * Abbandona. C leave * Elabora il record. C enddo *--------------------------------------------------------------------------------------------- * Se corre fine file. * Se in canna c'è un nome lungo da scaricare. Clr if ricomposto <> *blank * Emette il nome lungo. Clr movel(p) ricomposto filnam Clr exsr TiSpiezzoInDue Clr write fil * Se in canna c'è un nome lungo da scaricare. Clr endif *--------------------------------------------------------------------------------------------- * Spezza "Nome file" in "Nome senza estensione" ed "Estensione". * Riceve filnam. * Restituisce filnex e filext C TiSpiezzoInDueBegsr * Assume "Nome senza" uguale a "Nome". C eval filnex = filnam * Pulisce estensione. C clear filext * Inizializza e definisce indici. C clear xt 5 0 C clear xx 5 0 C clear xc 5 0 * Elabora tutti i caratteri del "Nome" a partire dall'ultimo * e cercando il punto che separa "Nome senza" da "Estensione". C do len xx C eval xc = len + 1 - xx C if %subst(filnam:xc:1) = '.' C eval xt = xc C leave C endif C enddo * Se il punto è trovato ed è prima del'ultimo carattere, * estrae "Estensione". C if xt > *zero and xt < len C eval filext = %subst(filnam:xt+1) C endif * Se il punto è trovato, estrae "Nome senza". C if xt > 1 C eval filnex = %subst(filnam:1:xt-1) C endif C endsr *--------------------------------------------------------------------------------------------- * Inizializza. C *inzsr Begsr * Scambia parametri. C *entry plist * Restituisce Flag di Release Non Conosciuto. C parm relnotknw 1 O ReleaseNotKnown * Inizializza parametri di ritorno. C eval relnotknw=*off C endsr *--------------------------------------------------------------------------------------------- ** Iniziali da scartare ! 1 Vi! 710 italiano 5770SS1 V7R1M0 100423 ! 0 Oggetto . . . . . . : ! Tipo oggetto . . . . : ! Dettagli . . . . . . : ! Opzione di ! visualizzazione . : ! 0 Indirizzario . . . : ! 0 Colleg. oggetto ! 0 . ! .. ! - * * * ! 1 Vi! 610 italiano 5761SS1 V6R1M0 080215 ! 0 Oggetto . . . . . . : ! Tipo oggetto . . . . : ! Dettagli . . . . . . : ! Opzione di ! visualizzazione . : ! 0 Indir. . . . . . . : ! 0 Colleg. oggetto ! 0 . ! .. ! 0 (Non è possibile trov! 1 Vi! 540 italiano 5722SS1 V5R4M0 060210 ! 0 Oggetto . . . . . . : ! Tipo oggetto . . . . : ! Dettagli . . . . . . : ! Opzione di ! visualizzazione . : ! 0 Indir. . . . . . . : ! 0 Colleg. oggetto ! 0 . ! .. ! 0 (Non è possibile trov! 1 Vi! 530 italiano 5722SS1 V5R3M0 040528 ! 0 Oggetto . . . . . . : ! Tipo oggetto . . . . : ! Dettagli . . . . . . : ! Opzione di ! visualizzazione . : ! 0 Indir. . . . . . . : ! 0 Colleg. oggetto ! - * * * * * ! 1 Di! 530 inglese 5722SS1 V5R3M0 040528 ! 0 Object . . . . . . . : ! Object type . . . . : ! Detail . . . . . . . : ! Display option . . . : ! 0 Directory . . . . : ! 0 Object link ! - * * * * *! ** Inizio nomi lunghi ! 0 * * * Testo intero di r! 710 italiano 0 * * * Testo intero di r! 610 italiano 0 * * * Testo intero di r! 540 italiano 0 * * * Testo intero di r! 530 italiano 0 * * * Full text of trun! 530 inglese //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JLINKP) FILETYPE(*SRC) ENDCHAR('//ENDSRC') :PNLGRP. .*--------------------------------------------------------------------- :HELP NAME=CMD. :H3.Comando JLINK :H2.Display Link :P.Il comando permette di generare l'elenco IFS dei file presenti in un indirizzario. :P.Il comando è una semplice interfaccia verso il :HP2.DSPLNK:EHP2. che non genera alcun file di emissione. L'emissione su stampa di tale comando viene riletta e interpretata per generare un file di emissione, utile per elaborare facilmente l'elenco dei file contenuti nell'indirizzario scelto. :EHELP. .*--------------------------------------------------------------------- :HELP name='CMD/fromdir'. :H3.From Directory (FROMDIR) :P.Nome dell'indirizzario IFS del quale interessa l'elenco dei file contenuti. :P.Tutto quanto è indirizzabile nel parametro :HP2.OBJ:EHP2. del comando :HP2.WRKLNK:EHP2. può essere indirizzato anche in questo parametro. :P.Il comando serve tuttavia principalmente per l'indirizzario "/home" e sottostanti. :P.Valori permessi: :PARML. :PT.nome-indirizzario-IFS :PD.Il valore è obbligatorio. :P.Nome dell'indirizzario del quale cercare il contenuto. :PT./home/mydir/* :PD.Il nome esemplifica un tipico indirizzario IFS del quale cercare il contenuto. :P.L'accesso da AS400 allo stesso indirizzario può avvenire tramite il comando :HP2.WRKLNK OBJ('/home/mydir/*'):EHP2. . :EPARML. :EHELP. .*--------------------------------------------------------------------- :HELP name='CMD/outfile'. :H3.Output file (OUTFILE) - file :P.Nome del file AS400 destinato a contenere l'elenco cercato. :P.Se il file ricevente preesiste, viene prima cancellato e poi ricreato. :P.Valori permessi: :PARML. :PT.:PK DEF.JLINKT:EPK. :PD.Nome di difetto del file di emissione. :PT.nome-file-di emissione :PD.Il file di emissione prende il nome richiesto. :EPARML. :H3.Output file (OUTFILE) - library :P.Nome della libreria in cui risiede il file di emissione. :P.Valori permessi: :PARML. :PT.:PK DEF.QTEMP:EPK. :PD.Il file di emissione viene creato in libreria temporanea. :PT.nome-libreria :PD.Il file di emissione viene creato nella libreria richiesta. :EPARML. :EHELP. .*--------------------------------------------------------------------- :EPNLGRP. //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JLINKSAMPL) FILETYPE(*SRC) ENDCHAR('//ENDSRC') Per facilitare le prossime modifiche di adeguamento ad altri release o ad altre lingue, riporto le stampe ottenute da DSPLNK per i release e le lingue conosciute dall'utility. Su altre utility, al cambio di release, questa stampa mi è mancata per ricapire il vecchio tracciato di lettura. ---------------------------------------------------------------------------------------------------- Esempio di stampa al release 540 in italiano. ---------------------------------------------------------------------------------------------------- 1 Vis. colleg. oggetto Pag. 1 5722SS1 V5R4M0 060210 IUBICSVI 14/01/09 11:13:33 CET 0 Oggetto . . . . . . : /home/neroni/* Tipo oggetto . . . . : *ALL Dettagli . . . . . . : *NAME Opzione di visualizzazione . : *PRV 0 Indir. . . . . . . : /home/neroni 0 Colleg. oggetto 0 . .. ciccio.txt ciccio9.txt consecutivi.txt gapiban.txt gapiban_1.txt gapibanout.txt gapibanout_1.txt uitrediciquattordiciquindicisedicidiciassettediciottodiciannoveve > unoduetrequattrocinqueseisetteottonovedieciundicidodicitredic.txt unoduetrequattrocinqueseisetteottonovedieciundicidodicitredici.tx > unoduetrequattrocinqueseisetteottonovedieciundicidodicitrediciqua > unoduetrequattrocinqueseisetteottonovedieciundicidodicitrediciqua > CONTX1BR_ANPRO15_NERONI2_150969_1_081125_093458.PDF JAIQMHSNDM.RPGLE JZONLFTP.BAT JZONLFTPA.BAT JZONW.txt MAMMA PAANPR09-DEPDOR02F.csv PAANPR15-COMAS01F.csv PAANPR15-COMAS06F.csv PAANPR15-COMAS06F.txt PAANPR15-OPECINF.csv PAANPR15-OPECOMPF.txt PAANPR15-OPERAZF.txt PROVA.csv UP.BAT XX.BAT 0 * * * Testo intero di righe troncate * * * 0 uitrediciquattordiciquindicisedicidiciassettediciottodiciannoveventixunoduetre qucitrediciquattordiciquindicisedicidiciassettediciottodiciannoveventixunodu etrequcitrediciquattordiciquindicisedicidiciassettediciottodiciannoveventixu noduetrequcitre.tex unoduetrequattrocinqueseisetteottonovedieciundicidodicitredici.txt unoduetrequattrocinqueseisetteottonovedieciundicidodicitrediciqua.txt unoduetrequattrocinqueseisetteottonovedieciundicidodicitrediciquattordiciquind icisedicidiciassettediciottodiciannoveventi.tex - * * * * * F I N E D E L L' E L E N C O * * * * * ---------------------------------------------------------------------------------------------------- Esempio di stampa al release 540 in italiano. VUOTO ---------------------------------------------------------------------------------------------------- 1 Vis. colleg. oggetto Pag. 1 5722SS1 V5R4M0 060210 IUBICSVI 15/01/09 14:28:27 CET 0 Oggetto . . . . . . : /home/neroni/*.tx2 Tipo oggetto . . . . : *ALL Dettagli . . . . . . : *NAME Opzione di visualizzazione . : *PRV 0 Indir. . . . . . . : /home/neroni 0 Colleg. oggetto 0 (Non è possibile trovare un oggetto che corrisponde al nome specificato.) - * * * * * F I N E D E L L' E L E N C O * * * * * ---------------------------------------------------------------------------------------------------- Esempio di stampa al release 530 in italiano. ---------------------------------------------------------------------------------------------------- 1 Vis. colleg. oggetto Pag. 1 5722SS1 V5R3M0 040528 PUB1 01/14/09 23:54:12 CET 0 Oggetto . . . . . . : /home/neroni/* Tipo oggetto . . . . : *ALL Dettagli . . . . . . : *NAME Opzione di visualizzazione . : *PRV 0 Indir. . . . . . . : /home/neroni 0 Colleg. oggetto 0 iband.dspf ibanr.rpg ibanrm.rpgle jref.cl jsplact jspol jzon.cl maramaoperchesuimortopanevinnontimancavanlinsalataeranellortoeuna > JWEB.CL 0 * * * Testo intero di righe troncate * * * 0 maramaoperchesuimortopanevinnontimancavanlinsalataeranellortoeunacasaaveviti.t xt - * * * * * F I N E D E L L' E L E N C O * * * * * ---------------------------------------------------------------------------------------------------- Esempio di stampa al release 530 in inglese. ---------------------------------------------------------------------------------------------------- 1 Display Object Links Page 1 5722SS1 V5R3M0 040528 PUB1 01/15/09 00:01:01 CET 0 Object . . . . . . . : /home/neroni/* Object type . . . . : *ALL Detail . . . . . . . : *NAME Display option . . . : *PRV 0 Directory . . . . : /home/neroni 0 Object link 0 iband.dspf ibanr.rpg ibanrm.rpgle jref.cl jsplact jspol jzon.cl maramaoperchesuimortopanevinnontimancavanlinsalataeranellortoeuna > JWEB.CL 0 * * * Full text of truncated lines * * * 0 maramaoperchesuimortopanevinnontimancavanlinsalataeranellortoeunacasaaveviti.t xt - * * * * * E N D O F L I S T I N G * * * * * ---------------------------------------------------------------------------------------------------- Esempio di stampa al release 710 in italiano. ---------------------------------------------------------------------------------------------------- 1 Vis. colleg. oggetto Pag. 1 5770SS1 V7R1M0 100423 S65D69DA 16/06/15 10:52:36 CEST 0 Oggetto . . . . . . : /webufhtml/ufneroni/XX/* Tipo oggetto . . . . : *ALL Dettagli . . . . . . : *NAME Opzione di visualizzazione . : *PRV 0 Indirizzario . . . : /webufhtml/ufneroni/XX 0 Colleg. oggetto 0 . .. barbara_Originale_MOV2012A.xlsx barbara_Originale_MOV2012Ann.xlsx comprimi.zip covip.zip covip2.zip jfromtxt.txt nn.txt sussi.sav COFIATSOTF-ATABELL.csv ETICNETF-WAMBANA.csv JSIGNF.mbr JSIGNF.txt MANETSOT-VINAV00F.csv Nel mezzo del cammin di nostra vita mi ritrovai per una selva osc > NERONI2-WAMBANA.csv Quel ramo del lago di como che volge a mezzogiorno tra due catene > QGPL-QAUOOPT.csv QTEMP-JUPDSUD1T.csv UFMDUCA-SOT112A.csv UFNERONI-BUTTA.csv UFNERONI-BUTTA.txt UFNERONI-FISCAR0F.csv UFNERONI-POSTELRI2.csv UFNERONI-QAUOOPT.csv UFNERONI-VINAVF0F.csv UFNERONI-XCDV02F.csv UFNERONI_JSPLCVT._668124_5_QPJOBLOG.PDF XCDV00f.csv ZENISOTF-P01RAPP.csv 0 * * * Testo intero di righe troncate * * * 0 Nel mezzo del cammin di nostra vita mi ritrovai per una selva oscura che la di ritta via era smarrita.bello lungo Quel ramo del lago di como che volge a mezzogiorno tra due catene ininterrotte di monti.e sorgenti - * * * * * F I N E E L E N C O * * * * * //ENDSRC /*---------------------------------------------------------------------*/ //DATA FILE(JLINK1) FILETYPE(*SRC) ENDCHAR('//ENDSRC') A ALTSEQ(JTBLUP) A R FIL A TEXT('IFS file') A FILNAM 306 A COLHDG('File' + A 'name') A FILNEX 306 A COLHDG('File name' + A 'no extension') A FILEXT 306 A COLHDG('File' + A 'extension') A K FILNAM //ENDSRC //ENDBCHJOB