Das Programm liest die Steueranweisungen über SYSDTA ein. Meldungen gibt es über SYSOUT oder/und SYSLST aus, abhängig von den eingestellten LOGGING-OPTIONS (siehe Anweisungen MODIFY-LOGGING-OPTIONS, SHOW-LOGGING-OPTIONS).
Beispiel
/START-EXECUTABLE-PROGRAM FROM-FILE=PAMCONV 1. % BLS0523 ELEMENT 'PAMCONV', VERSION '<version>', TYPE 'L' FROM LIBRARY ':1OSH:$TSOS.SYSLNK.PAMCONV.<version>' IN PROCESS % BLS0524 LLM 'PAMCONV', VERSION '<version>' OF '<date> <time>' LOADED % PEA7000 <time> PAMCONV VERSION <version> STARTED IN BS2000 <version> % PEA7001 PLEASE ENTER PAMCONV STATEMENTS %//CONVERT-FILE FROM-FILE=DAT*,SELECT=BY-ATTRIBUTES(CREATION-DATE= INTERVAL(,YESTERDAY),FILE-STRUCTURE=SAM),TO-FILE=NK.DAT* 2. % PEA5000 CONVERSION TO NON-KEY FORMAT COMPLETED. SOURCE FILE: ':N:$USER0001.DATEI1'; TARGET FILE: ':N:$USER0001.NK.DATEI1' % PEA5000 CONVERSION TO NON-KEY FORMAT COMPLETED. SOURCE FILE: ':N:$USER0001.DATEI2'; TARGET FILE: ':N:$USER0001.NK.DATEI2' % PEA5000 CONVERSION TO NON-KEY FORMAT COMPLETED. SOURCE FILE: ':N:$USER0001.DATEI3'; TARGET FILE: ':N:$USER0001.NK.DATEI3' % PEA5000 CONVERSION TO NON-KEY FORMAT COMPLETED. SOURCE FILE: ':N:$USER0001.DATEI4'; TARGET FILE: ':N:$USER0001.NK.DATEI4' 3. %//CONVERT-FILE FROM-FILE=DAT*,TO-FILE=NK.DAT* 4. % PEA5000 CONVERSION TO NON-KEY FORMAT COMPLETED. SOURCE FILE: ':N:$USER0001.DATEI5'; TARGET FILE: ':N:$USER0001.NK.DATEI5' 5. % PEA2103 'TO-FILE' ALREADY EXISTS. TARGET FILE: 'NK.DATEI1' % PEA2103 'TO-FILE' ALREADY EXISTS. TARGET FILE: 'NK.DATEI2' % PEA2103 'TO-FILE' ALREADY EXISTS. TARGET FILE: 'NK.DATEI3' % PEA2103 'TO-FILE' ALREADY EXISTS. TARGET FILE: 'NK.DATEI4' 6. %//MODIFY-CONVERT-FILE-DEFAULTS SELECT=BY-ATTRIBUTES(FILE-STRUCTURE=ISAM) 7. %//SHOW-CONVERT-FILE-DEFAULTS 8. % CURRENT CONVERT-FILE DEFAULTS % DIRECTION : TO-NONKEY % SELECT : BY-ATTRIBUTES( ) % CREATION-DATE : ANY % LAST-ACCESS-DATE : ANY % SIZE : ANY % ACCESS-METHOD : ISAM % BLKSIZE : ANY % BLKCTRL : ANY % TO-FILE-BLKSIZE : STD % TO-FILE-BLKCTRL : STD % REPLACE-OLD-FILES : NO % FILE-DISPOSAL : KEEP % PROTECTION : STD % DEVICE-FOR-TEMPFILE : NONE 9. %//CONVERT-FILE DIRECTION=NONKEY-TO-KEY,FROM-FILE=NK.DAT*,TO-FILE=K.DAT* 10. % PEA5001 CONVERSION FROM NON-KEY TO KEY FORMAT COMPLETED. SOURCE FILE: ':N:$USER0001.NK.DATEI5'; TARGET FILE: ':N:$USER0001.K.DATEI5' 11. %//CLASSIFY-FILE FROM-FILE=*DAT* 12. % CLASSIFY-FILE *DAT* DIRECTION = KEY-TO-NONKEY % % FILENAME ! CONVER- ! % ! TIBLE ! % :N:$USER0001.DATEI1 .................................. ! YES ! % :N:$USER0001.DATEI2 .................................. ! YES ! % :N:$USER0001.DATEI3 .................................. ! YES ! % :N:$USER0001.DATEI4 .................................. ! YES ! % :N:$USER0001.DATEI5 .................................. ! YES ! % :N:$USER0001.K.DATEI5 ................................ ! YES ! % :N:$USER0001.NK.DATEI1 ............................... ! YES ! % :N:$USER0001.NK.DATEI2 ............................... ! YES ! % :N:$USER0001.NK.DATEI3 ............................... ! YES ! % :N:$USER0001.NK.DATEI4 ............................... ! YES ! % :N:$USER0001.NK.DATEI5 ............................... ! YES ! % 11 FILE(S)LISTED 13. %//CHECK-BLKCTRL-INDICATOR FROM-FILE=*DAT* 14. % CHECK-BLKCTRL-INDICATOR *DAT* % % FILENAME ! FOR- ! BLKCTRL ! % ! MAT ! COMPARE ! % :N:$USER0001.DATEI1 .................................! K ! SAME ! % :N:$USER0001.DATEI2 .................................! K ! SAME ! % :N:$USER0001.DATEI3 .................................! K ! SAME ! % :N:$USER0001.DATEI4 .................................! K ! SAME ! % :N:$USER0001.DATEI5 .................................! K ! SAME ! % :N:$USER0001.K.DATEI5 ...............................! K ! SAME ! % :N:$USER0001.NK.DATEI1 ..............................! NK ! SAME ! % :N:$USER0001.NK.DATEI2 ..............................! NK ! SAME ! % :N:$USER0001.NK.DATEI3 ..............................! NK ! SAME ! % :N:$USER0001.NK.DATEI4 ..............................! NK ! SAME ! % :N:$USER0001.NK.DATEI5 ..............................! NK ! DIFFERENT ! % 11 FILE(S)LISTED 15. %//END 16. % PEA7003 10:01:09/1.5323 PAMCONV TERMINATED ABNORMALLY 17.
Aufruf des Programms PAMCONV.
Eingabe der Anweisung CONVERT-FILE mit partiellen Dateinamen und Auswahlkriterien.
Quittung über erfolgte Dateikonvertierung.
Eingabe der Anweisung CONVERT-FILE mit partiellen Dateinamen, ohne weitere Auswahlkriterien.
Quittungen über erfolgte Dateikonvertierungen.
Datei existiert bereits, die Konvertierung dieser Datei wird daher nicht durchgeführt.
Einstellen von Auswahlkriterien für weitere CONVERT-FILE-Anweisungen.
Eingabe der Anweisung SHOW-CONVERT-FILE-DEFAULTS.
Ausgabe der mit der Anweisung SHOW-CONVERT-FILE-DEFAULTS angeforderten Werte. Die ausgegebenen Werte sind die Defaultwerte für nachfolgende CONVERT-FILE-Anweisungen.
Eingabe der Anweisung CONVERT-FILE mit partiellen Dateinamen, gewünschte Konvertierungsrichtung NONKEY-TO-KEY.
Quittungen über erfolgte Dateikonvertierungen.
Eingabe der Anweisung CLASSIFY-FILE mit partiellen Dateinamen.
Ausgabe der mit der Anweisung CLASSIFY-FILE angeforderten Werte. Klassifizierung der Eingabedateien nach ihrer Konvertierbarkeit.
Eingabe der Anweisung CHECK-BLKCTRL-INDICATOR mit partiellen Dateinamen.
Ausgabe der mit der Anweisung CHECK-BLKCTRL-INDICATOR angeforderten Ergebnisse der Prüfung des internen Dateiformates und des Vergleichs mit dem BLKCTRL-Wert aus dem Katalogeintrag.
Eingabe der Anweisung END.
Programm PAMCONV wird abnormal beendet, da im PAMCONV-Lauf ein Fehler aufgetreten ist.