Découper un spool sans l'option TER

Différence entre versions

De MappingDoc
 
Ligne 1 : Ligne 1 :
 
;DECOUPAGE SPOOL VOLUMINEUX
 
;DECOUPAGE SPOOL VOLUMINEUX
  
# Création d'un PF (fichier physique ex RELELIV dans la lib QTEMP)
+
# Création d'un PF (fichier physique ex RELELIV dans la lib QTEMP)<br/><code>CRTPF FILE(QTEMP/RELELIV) RCDLEN(255) SIZE(*NOMAX)</code>
<code>CRTPF FILE(QTEMP/RELELIV) RCDLEN(255) SIZE(*NOMAX)</code>
+
# Copie des données depuis le spool dans le fichier physique créé précédemment<br/><code>CPYSPLF FILE(RELELIVSOL) TOFILE(QTEMP/RELELIV) JOB(170194/OBEIDK/QPADEV0017) CTLCHAR(*FCFC) CHLVAL(*NORMAL)</code>
# Copie des données depuis le spool dans le fichier physique créé précédemment
+
# On substitue le fichier QSYSPRT. Ça va permettre de copier le contenu du PF et de recréer un fichier spool<br/><code>OVRPRTF FILE(QSYSPRT) PAGESIZE(*N 255) CTLCHAR(*FCFC) CHLVAL(*NORMAL) SPLFNAME(KHALIL)</code>
<code>CPYSPLF FILE(RELELIVSOL) TOFILE(QTEMP/RELELIV) JOB(170194/OBEIDK/QPADEV0017) CTLCHAR(*FCFC) CHLVAL(*NORMAL)</code>
+
# On copie (une partie) du fichier spool de départ (qui est contenu dans le PF) dans notre nouveau spool (dans cet exemple on copie de l'enregistrement 1 à l'enregistrement 4041)<br/><code>CPYF FROMFILE(QTEMP/RELELIV) TOFILE(QSYSPRT) MBROPT(*ADD) CRTFILE(*YES) FROMRCD(1) TORCD(4041)</code>
# On substitue le fichier QSYSPRT. Ça va permettre de copier le contenu du PF et de recréer un fichier spool
 
<code>OVRPRTF FILE(QSYSPRT) PAGESIZE(*N 255) CTLCHAR(*FCFC) CHLVAL(*NORMAL) SPLFNAME(KHALIL)</code>
 
# On copie (une partie) du fichier spool de départ (qui est contenu dans le PF) dans notre nouveau spool (dans cet exemple on copie de l'enregistrement 1 à l'enregistrement 4041)
 
<code>CPYF FROMFILE(QTEMP/RELELIV) TOFILE(QSYSPRT) MBROPT(*ADD) CRTFILE(*YES) FROMRCD(1) TORCD(4041)</code>
 
  
 
A l'issue de ces manipulations on obtient un nouveau spool qui s'appelle KHALIL et contient les enregistrements 1 à 4041. Pour créer les spools suivants (avec les enregistrements suivants) recommencer les étapes 3 & 4 en changeant le nom du fichier spool de destination (dans la commande 3) et le nb des enregistrements de départ et de fin (commande 4)
 
A l'issue de ces manipulations on obtient un nouveau spool qui s'appelle KHALIL et contient les enregistrements 1 à 4041. Pour créer les spools suivants (avec les enregistrements suivants) recommencer les étapes 3 & 4 en changeant le nom du fichier spool de destination (dans la commande 3) et le nb des enregistrements de départ et de fin (commande 4)

Version actuelle datée du 28 février 2024 à 13:36

DECOUPAGE SPOOL VOLUMINEUX
  1. Création d'un PF (fichier physique ex RELELIV dans la lib QTEMP)
    CRTPF FILE(QTEMP/RELELIV) RCDLEN(255) SIZE(*NOMAX)
  2. Copie des données depuis le spool dans le fichier physique créé précédemment
    CPYSPLF FILE(RELELIVSOL) TOFILE(QTEMP/RELELIV) JOB(170194/OBEIDK/QPADEV0017) CTLCHAR(*FCFC) CHLVAL(*NORMAL)
  3. On substitue le fichier QSYSPRT. Ça va permettre de copier le contenu du PF et de recréer un fichier spool
    OVRPRTF FILE(QSYSPRT) PAGESIZE(*N 255) CTLCHAR(*FCFC) CHLVAL(*NORMAL) SPLFNAME(KHALIL)
  4. On copie (une partie) du fichier spool de départ (qui est contenu dans le PF) dans notre nouveau spool (dans cet exemple on copie de l'enregistrement 1 à l'enregistrement 4041)
    CPYF FROMFILE(QTEMP/RELELIV) TOFILE(QSYSPRT) MBROPT(*ADD) CRTFILE(*YES) FROMRCD(1) TORCD(4041)

A l'issue de ces manipulations on obtient un nouveau spool qui s'appelle KHALIL et contient les enregistrements 1 à 4041. Pour créer les spools suivants (avec les enregistrements suivants) recommencer les étapes 3 & 4 en changeant le nom du fichier spool de destination (dans la commande 3) et le nb des enregistrements de départ et de fin (commande 4)


ECLATEMENT PDF - pas de TER


PDF->XPS puis indexation à l'aide de la commande MAP_XPS puis XPS->PDF avec éclatement sur index.