'Cest comme un DITTO intelligent'
La logique procédurale n'est pas nécessaire dans la plupart des programmes JCOPY. Les verbes PERFORM et GO-TO sont également disponibles. Le manuel d'utilisation contient de nombreux programmes qui peuvent être facilement modifiés pour vos besoins spécifiques.
Ci-dessous un exemple de programme JCOPY suivit
se son output. Après avoir étudier le produit quelques heures seulement, votre
personnel technique sera capable en quelques minutes décrire, des jobs
dimpression, des programmes simples pour créer des fichiers de test, voir même
des programmes de production
Exemple dun programme JCOPY :
INPUT TYPEFIL=VK,FILNM=TISSTP
OUTPUT TYPEFIL=PR
OPTION HEADING=1,1,'TRS/OL STOPWORDS',HDGDATE=1,20,HDGTIME=1,30
EQU STOPWORD=1,12
MOVE=STOPWORD,*,1
END
La première ligne définit le fichier en entrée TISSTP qui est un fichier VSAM
KSDS. La seconde ligne définit le fichier en sortie qui est un fichier
dimpression. La troisième ligne définit lentête de létat en sortie, jusquà
quatre lignes dentête peuvent être définies. La quatrième ligne (EQU) définit
le paramètre STOPWORD qui commence en position 1 pour une longueur de 12. La
cinquième ligne (MOVE=STOPWORD,*,1) dit de faire un move de 12 octets
commençant en position 1 de lenregistrement en lecture dans les position 1-12
de lenregistrement en sortie. La lecture du fichier VSAM, lécriture de létat
en sortie, limpression de lentête etc. sont fait automatiquement, mais peuvent
également être définis par le programmeur. Avec JCOPY,
vous pouvez écrire des programmes bien plus complexes avec seulement quelques
instructions..
Sortie du programme exemple
TRS/OL STOPWORDS 05/05/97 15.28.49
A
ADD
ALL
ALWAYS
AN
AND
ANOTHER
ANY
APPROVE
APPROVED
ARE
AS
AT
AUTHORIZED
BACKWARD
BAD
BE
BEEN
BEING
BUT
BY
CAN
CANT
CARRIED
(etc. pour deux pages de plus) cet état est le résultat du programme donné en
exemple..
STATISTIQUES DU TRAITEMENT JCOPY
208 INPUT RECORDS READ
0 INPUT RECORDS BYPASSED
208 INPUT RECORDS USED
0 INPUT RECORDS DROPPED
0 CARD RECORDS READ
0 ISAM RECORDS READ
0 VSAM RECORDS READ
208 OUTPUT RECORDS WRITTEN
0 PRINT RECORDS WRITTEN
0 PUNCH RECORDS WRITTEN
0 ISAM RECORDS UPDATED
0 VSAM RECORDS UPDATED
0 ISAM RECORDS ADDED
0 VSAM RECORDS ADDED
0 ISAM RECORDS DELETED
0 VSAM RECORDS DELETED
0 SUBROUTINE CALLS
0 PCB'S IN PSB LIST
0 TABLE ENTRIES ADDED
0 TABLE ENTRIES DELETED
0 TABLE ENTRIES REPLACED
0 TABLE ENTRIES RETRIEVED
0 TABLE SORTS ACCOMPLISHED
0 HIGHEST TABLE ENTRY USED
70358 BYTES OF CORE UTILIZED (69K)
307200 BYTES OF CORE ALLOCATED (300K)
00.00.06 ESTIMATED ELAPSED TIME
JCOPY produit automatiquement des statistiques du traitement qui permettent de vérifier que le job sest correctement exécuté.
Littérature complémentaire
(en anglais)