Sostituzione di una stringa nel set di dati Mainframe

Si può sostituire una parte di dati con un’altra stringa Mainframe?
ad esempio, Supponiamo di avere un PS di lunghezza 80.
Dal col 72 a 80 alcuni numeri di riga sono presenti.
Voglio cambiare i numeri di riga da una particolare stringa di dire di TEST.
Si può usare qualsiasi forma di “C” per ottenere questo???
File ABC—

=COLS> -1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
000004    text123                                                      12360002
000005    textabc                                                      12370002

Riguarda,
Saisha

OriginaleL’autore Saisha | 2011-11-24

4 Replies
  1. 7

    Si può fare questo in ISPF editor (che è chiaro dal tuo esempio) facilmente: C p‘#’ ‘TEST’ 72-80 andrà a sostituire qualsiasi stringa numerica in colonne 72 a 80 con “TEST”.

    Buona risposta… Quando in ISPF può anche girare la numerazione off: Tipo “NUMERO” sulla riga di comando.
    Grazie Ross 🙂 Questo è esattamente quello che stavo cercando 🙂

    OriginaleL’autore Ross Patterson

  2. 0

    Disporre di almeno due opzioni:

    a) Utilizzare DFSORT con INREC SE le istruzioni, o;

    b) Uso di FILE di AIUTO.

    Ecco un esempio con il FILE-AID elaborazione Batch:

    //STEPNAME EXEC PGM=FILEAID,PARM=TSO
    //DD01     DD DSN=INPUT.FILE,DISP=SHR
    //DD01O    DD DSN=OUTPUT.FILE1,DISP=OLD
    //SYSOUT   DD SYSOUT=*
    //SYSPRINT DD SYSOUT=*
    //SYSLIST  DD SYSOUT=*
    //SYSTOTAL DD SYSOUT=*
    //SYSIN    DD *
    $$DD01 COPY  EDITALL=(72,6,C'AAAA',C'BBBBBBBB') 
    

    OriginaleL’autore user823959

  3. 0

    Si dispone di un numero di opzioni, nessuna delle quali fare un “posto” modifica dei dati. Che è, essi leggere l’input e scrivere un nuovo file di output.

    • Qualunque SORTA di prodotto (DFSORT, SYNCSORT (che inspiegabilmente non pubblicare i loro manuali online), ecc.) sarà probabilmente in grado di fare questo. L’accesso a tali servizi tramite una CHIAMATA è possibile, ma sono normalmente effettuate come autonomo passaggi all’interno di un jobstream. Se questi prodotti non entrano gratis con z/OS, sarebbe estremamente raro trovare un mainframe negozio senza.
    • awk, che non è probabile che sia Richiamabile in qualsiasi facile moda. Questo viene fornito gratuitamente con z/OS.
    • sed, che non è probabile che sia Richiamabile in qualsiasi facile moda. Questo viene fornito gratuitamente con z/OS.
    • File Di Aiuto, il CALLability di cui non posso parlare. Questo è un prodotto di terze parti, e non è libero. Si può o non può avere nel tuo negozio.
    • Scrivere il proprio. Se ha bisogno di essere rimborsati allora si può scrivere nella vostra lingua preferita. Se non ha bisogno di essere rimborsati allora hai anche altre opzioni, Easytrieve, SAS, SPSS, (che sono tutti a costo prodotti di terze parti), e Perl, Java, ecc, che sono per il libero download. Si potrebbe anche scrivere autonomo Rexx o utilizzare Rexx o Clist per creare un ISPF modificare la macro che si potrebbe quindi eseguire in lotto.

    Ci sono senza dubbio altre opzioni.

    OriginaleL’autore cschneid

  4. 0

    Personalmente considero la sequenza di numeri in codice sorgente per essere inutile e fastidioso. (È anche cols 73-80, non 72-80 btw). Indietro quando il codice sorgente è stato mantenuto su carte erano utili per risequenziazione una fonte “il ponte”, che era stato lasciato cadere accidentalmente con le carte sparse ovunque. Al giorno d’oggi, con sorgente memorizzato sul disco e modificati online, servono assolutamente nessuno scopo e nessuno actaully li usa più. Ogni volta che li trovo io li cambio di spazi. Questo permette anche di origine per essere memorizzati nel formato di lunghezza variabile, con notevole risparmio di spazio su disco 😉 COBOL sequenza di numeri in Colonne da 1 a 7 allo stesso modo non servono. La modifica di questi spazi migliora la leggibilità e la rende legittimi i commenti in queste colonne risaltano meglio.

    OriginaleL’autore dstaudacher

Lascia un commento