save 21 aus CA

[Pikachu]

ADDWSE SBSD(QINTER) WRKSTN(MeinDSP) MAXACT(0) AT(*ENTER)

[h_u_d]

...mit: TFRJOB QCTL ?


Gruß

HuD

[ILEMax]

@Pikachu
Wieso Qinter ?
und wieso *enter? Die fehlermeldung sagt doch das *signon benötigt wird ?


@H_U_D
ämm ...
das steht doch da, das ich das gemacht habe ...

Max

[TARASIK]

Hallo Max,
ich würde die zweite Variante nehmen:

The second option is to submit a job using the job scheduler to the QCTL job queue that would individually end the appropriate subsystems (QBATCH, QINTER, QSERVER, QUSRWRK, and so on) and then perform the required saves. It is also recommended that you run the ENDTCPSVR *ALL , ENDHOSTSVR *ALL and ENDTCP commands followed by a delay prior to initiating the ending of the subsystems.

[ILEMax]

Hallo TARASIK,

die 21 läuft ja interaktiv
heist das, ich soll Vorher ein Endsbs(*all) submitten
Wie verhinder ich dann bei der 21 das er abbricht ?
(Ok, ich könnte alle Befehle mit Eingabeaufforderung absetzen, kommen die Fragen nacheinander bevor Sie richtig loslegt oder 'Nachtunfreunlich' nacheinander ?
gruß
Max

[KingofKning]

Wenn Du ein wenig suchst, findes Du ein CL von Holger was die komplette Sicherung macht, ist kein Jahr her das er darüber geschrieben hat.
Gruß
Gregor

[ILEMax]

Hilfe ! Holger wo bist du?
Max

[holgerscherer]

Hilfe ! Holger wo bist du?
Max

hier bin ich doch

-h

[ILEMax]

Hi Holger,
hättest du einen link zu deinem CL?
Danke

Hi Pikachu,
Ja, komme ich den ins Qctl, wenn ich MeinDSP auf Qinter und *Enter angebe?

Eigentlich will ich 'nur' mal wieder ein save 21 machen.
Ich habe keinen (Twinax) Terminal

Danke
IleMax

[holgerscherer]

Hi Holger,
hättest du einen link zu deinem CL?
Danke

Hier die rudimentäre Version. In manchen Systemumgebungen kann es "Hänger" geben, dann müssen Fehlerprüfungen rein. Aber - man lernt ja auch durch Experimentieren

PGM                                                              
             MONMSG     MSGID(CPF0000)                           
             ENDSBS     SBS(*ALL) OPTION(*IMMED) BCHTIMLMT(180)  
                                                                 
             INZTAP     DEV(TAP01) NEWVOL(SAVE21) CHECK(*NO) +   
                          DENSITY(*CTGTYPE)                      
             SAVSYS     DEV(TAP01) ENDOPT(*LEAVE)                
             SAVLIB     LIB(*NONSYS) DEV(TAP01) ENDOPT(*LEAVE) + 
                          ACCPTH(*YES)                           
             SAVDLO     DLO(*ALL) DEV(TAP01) ENDOPT(*LEAVE)      
             SAV        DEV('/qsys.lib/tap01.devd') OBJ(('/*') + 
                          ('/QDLS' *OMIT) ('/QSYS.LIB' *OMIT))   
             STRSBS     SBSD(QCTL)                               
ENDPGM

Ausführen mit

SBMJOB CMD(CALL PGM(QGPL/SAVEBCH)) JOBQ(QCTL)

-h

[Fuerchau]

Der Hänger ist ja vorprogrammiert.
Durch ENDSBS(*ALL) wird ja ein eingeschränkter Zustand hergestellt, der keine Batchjobs mehr erlaubt !

Wenn du keine Wartezeit auf tatsächliche Beendigung einbaust, machst du parallel weiter, da ENDSBS sofort zurückkehrt.

Wartest du aber eine Weile, würgt dich der ENDSBS(*ALL) anschließend selber ab.

Fahre lieber gezielt die Subsysteme (ausser QCTL) herunter, dann kannst du in QCTL auch weiter Batch machen.

ENDSBS QCTL leitet den eingeschränkten Zustand ein und dann brauchst du eine Konsole (Twinax/HMC).

[Pikachu]

Hi Pikachu,
Ja, komme ich den ins Qctl, wenn ich MeinDSP auf Qinter und *Enter angebe?

Damit geht MeinDSP zumindest nicht mehr ins QINTER.