The following example job shows the principles of SMA installation jobs:
/.I055 LOGON SAG,12345678, 'PASSWORD' (1) / REMARK +----------------------------------------------------------+ / REMARK I JOB-NAME : E.I055 I / REMARK I FUNCTION : ASSEMBLE BATCH NATURAL I / REMARK I ENVIRONM.: SMA (2005/09/19 10:10:38) I / REMARK I LOGFILE : L.I055.SMA I / REMARK +----------------------------------------------------------+ / ASSIGN-SYSOUT L.I055.SMA (2) / SHOW-JOB-STATUS / ADD-PASSWORD X'00000000' (3) / CALL-PROC (SMA.JOBLIB,P.REPORT), - (4) / (TEXT='===============================================', - / STEP='I055 START') / REMARK SKIP-COMMANDS TO-LABEL=???????? "<== MODIFY IF RESTART" (5) / REMARK +----------------------------------------------------------+ / REMARK I JOB=I055 STEP=0216 PRODUCT=NATnnn I / REMARK +----------------------------------------------------------+ /.STEP0216 REMARK ANATSTUB (6) / CALL-PROCEDURE - / (SMA.JOBLIB, P.ASSEMBLE), ( - / SOURCE = ANATSTUB, - / SRCLIB = SMA.JOBLIB, - / ALTLIB = $SAG.NATnnn.MAC, - / OUTMOD = SMA.JOBLIB, - / STEP = 'ANATSTUB') / REMARK +----------------------------------------------------------+ / REMARK I JOB=I055 STEP=0217 PRODUCT=NATnnn I / REMARK +----------------------------------------------------------+ /.STEP0217 REMARK ANATFRNT / CALL-PROCEDURE - / (SMA.JOBLIB, P.ASSEMBLE), ( - / SOURCE = ANATFRNT, - / SRCLIB = SMA.JOBLIB, - / ALTLIB = $SAG.NATnnn.MAC, - / OUTMOD = SMA.JOBLIB, - / STEP = 'ANATFRNT') / ... /.NORMEND REMARK +---------------------------------------------------+ (7) / REMARK I NORMAL END OF JOB I055 I / REMARK +---------------------------------------------------+ / CALL-PROC (SMA.JOBLIB,P.REPORT), - (4) / (TEXT='OK NORMEND', STEP='I055') / ASSIGN-SYSOUT *PRIMARY / CALL-PROC (SMA.JOBLIB,P.REPSTORE), - / (REPORT=L.I055.SMA) / SKIP-COMMANDS TO-LABEL=LOGOFF /.ABEND SET-JOB-STEP (8) / REMARK +---------------------------------------------------+ / REMARK I ABNORMAL END OF JOB I055 I / REMARK +---------------------------------------------------+ / CALL-PROC (SMA.JOBLIB,P.REPORT), - (4) / (TEXT='** JOB ABEND, SEE FILE L.I055.SMA*', - / STEP='I055 ABEND') /.LOGOFF EXIT-JOB SYS-OUT=*NONE
Notes:
LOGON
Command. The first command in a
job (ENTER file) generated by SMA is the LOGON
command (in the ISP syntax format). It is possible to specify the operands of
this command in the SMA parameter LOGON-PARM
.
JOBPASS
.
OWN-REPORT
to the value
YES.
RR
(Restart Routine) is set to YES.
RR
) you can submit this job again (without
changing the job itself) after you have resolved the error.