Create QSHSAVIFS.CMD

QSHSAVIFS.CMD

@@ -0,0 +1,42 @@
+             CMD        PROMPT('Save IFS Objects to IFS File')
+             PARM       KWD(OBJECTS) TYPE(*CHAR) LEN(255) MIN(1) +
+                          CASE(*MIXED) PROMPT('Objects to save')
+             PARM       KWD(TOIFSFILE) TYPE(*CHAR) LEN(255) +
+                          SPCVAL((*DATETIME *DATETIME) (*DATE +
+                          *DATE)) MIN(1) CASE(*MIXED) PROMPT('Save +
+                          to IFS file')
+             PARM       KWD(SAVFPREFIX) TYPE(*CHAR) LEN(100) +
+                          DFT(IFSOBJECTS) CASE(*MIXED) +
+                          PROMPT('Output file keyword prefix')
+             PARM       KWD(SUBTREE) TYPE(*CHAR) LEN(5) RSTD(*YES) +
+                          DFT(*ALL) VALUES(*ALL *DIR *NONE *OBJ +
+                          *STG) CASE(*MIXED) PROMPT('Directory +
+                          subtree')
+             PARM       KWD(REPLACE) TYPE(*CHAR) LEN(4) RSTD(*YES) +
+                          DFT(*NO) VALUES(*NO *YES) CASE(*MIXED) +
+                          PROMPT('Replace output IFS file')
+             PARM       KWD(TGTRLS) TYPE(*CHAR) LEN(10) RSTD(*NO) +
+                          DFT(*CURRENT) SPCVAL((*PRV *PRV) (V7R1M0 +
+                          V7R1M0) (V7R2M0 V7R2M0) (V7R3M0 V7R3M0) +
+                          (V7R4M0 V7R4M0) (V7R5M0 V7R5M0)) +
+                          CASE(*MIXED) PROMPT('Target release')
+             PARM       KWD(UPDHST) TYPE(*CHAR) LEN(4) RSTD(*YES) +
+                          DFT(*YES) VALUES(*NO *YES) CASE(*MIXED) +
+                          PROMPT('Update history')
+             PARM       KWD(PRECHK) TYPE(*CHAR) LEN(4) RSTD(*YES) +
+                          DFT(*NO) VALUES(*NO *YES) CASE(*MIXED) +
+                          PROMPT('Object pre-check')
+             PARM       KWD(SAVACT) TYPE(*CHAR) LEN(4) RSTD(*YES) +
+                          DFT(*NO) VALUES(*NO *YES) CASE(*MIXED) +
+                          PROMPT('Save active')
+             PARM       KWD(DTACPR) TYPE(*CHAR) LEN(7) RSTD(*YES) +
+                          DFT(*HIGH) VALUES(*NONE *DEV *NO *YES +
+                          *LOW *MEDIUM *HIGH) CASE(*MIXED) +
+                          PROMPT('Data compression')
+             PARM       KWD(DLTTMPSAVF) TYPE(*CHAR) LEN(4) +
+                          RSTD(*YES) DFT(*YES) VALUES(*NO *YES) +
+                          CASE(*MIXED) PROMPT('Delete temporary +
+                          save file')
+             PARM       KWD(PROMPT) TYPE(*CHAR) LEN(4) RSTD(*YES) +
+                          DFT(*NO) VALUES(*NO *YES) CASE(*MIXED) +
+                          PROMPT('Prompt the SAV command')