:SV,4,9,IH
:** 
:**   *DATCA (HP 92080-18204 REV.2026  800327)
:** 
:**   LOADS ALL DATACAP PROGRAMS, AND SAVES THEM ON LU=2 IF REQUIRED. 
:** 
:**   IF THE USER WANTS TO SAVE PROGRAM ON LU=3, EDIT THE 
:**   TRANSFER FILE TO CHANGE THE NEXT LINE TO:   :CA,8,3 
:CA,8,2 
:CA,7,8G,*,-1 
:LL,0G
:IF,1G,EQ,,1
:IF,1G,NE,0,14
:AN,
:AN,. 
:AN,.  PLEASE ENTER THE FOLLOWING COMMAND:
:AN,. 
:AN,.     TR,*DATCA::CR,CR#,LIST LU,LOAD FLAG 
:AN,. 
:AN,.  WHERE  CR         IS THE CARTRIDGE WHERE  '*DATCA'  RESIDES. 
:AN,.         CR#        IS THE CARTRIDGE WHERE DATACAP'S MODULES RESIDE. 
:AN,.         LOAD FLAG  IS  0 TO LOAD PROGRAMS TEMPORARILY AND 
:AN,.                    NOT 0 TO SAVE PROGRAMS AS TYPE 6 FILES.
:AN,. 
:AN,
:SV,9G,,IH
::
:AN,
:AN,  ****************************************************************
:AN,  *                                                              *
:AN,  *              C R E A T I O N   O F   % D B M S 1             *
:AN,  *                                                              *
:AN,  ****************************************************************
:CA,4,0 
:CA,5,1G
:CA,6,2G
:DP,RU,MERGE,>DCIML::5G,%DBMS1::5G
:CA,6:P,0 
:RU,MERGE,>DCIML::5G,%DBMS1::5G 
:IF,6P,EQ,0,21
:IF,6P,NE,67,13 
:AN,
:AN,  PROGRAM 'MERGE' NOT PREVIOUSLY LOADED.   WILL LOAD IT NOW 
:AN,
:CA,4,1 
:RU,LOADR,,%MERGE,6G
:IF,10G,NE,MERGE,4
:AN,
:AN,  PROGRAM 'MERGE' SUCCESSFULLY LOADED 
:AN,
:IF,,EQ,,-15
:AN 
:AN,  UNABLE TO LOAD PROGRAM 'MERGE'
:IF,,EQ,,2
:AN 
:AN, IMAGE LIBRARY %DBMS1 IS NOT READY
:AN,
:AN, DATACAP IS NOT READY, MUST RE-RUN THE TRANSFER FILE  *DATCA
:AN,
:SV,9G,,IH
::
:AN 
:AN, IMAGE LIBRARY %DBMS1 SUCCESSFULLY CREATED
:AN 
:CA,1,5G
:CA,2,6G
:IF,4G,EQ,0,2 
:DP,RU,LOADR:IH,,MERGE,,PU
:RU,LOADR:IH,,MERGE,,PU 
:** 
:** IF YOUR SYSTEM IS SESSION MONITOR UN-COMMENT THE FOLLOWING LINE 
:** 
:** IF,1,EQ,1,24  
:AN,
:AN,  ****************************************************************
:AN,  *                                                              *
:AN,  *     C R E A T I O N     O F     T Y P E   0   F I L E S      *
:AN,  *                                                              *
:AN,  ****************************************************************
:AN,
:CA,6:P,0 
::*TYPE0::1G
:IF,6P,NE,0,-69 
:CA,6,2G
:IF,6G,EQ,,1
:IF,6G,NE,0,1 
:CA,6,0G
:IF,3G,NE,,1
:CA,3,0 
:AN,
:IF,3G,NE,0,2 
:DP, FROM CR=,1G, LIST LU=,6G, PROGRAM LOADED TEMPORARILY ! 
:IF,,EQ,,1
:DP, FROM CR=,1G, LIST LU=,6G, PROGRAMS SAVED ONTO TYPE 6 FILES.
:AN,
:AN,
:AN,
:AN,
:AN,  ****************************************************************
:AN,  *                                                              *
:AN,  *     L O A D I N G       O F       D C M O N                  *
:AN,  *                                                              *
:AN,  ****************************************************************
:AN,
:OF,DCMON 
:RU,LOADR,>DCMON::1G,,6G
:IF,10G,EQ,DCMON,8
:AN,
:AN,  LOADER HAS FAILED:
:AN,  'DCMON' IS NOT READY !
:AN,
:AN,  DATACAP IS NOT READY, MUST RE-RUN THE TRANFER FILE  *DATCA
:AN,
:SV,9G,,IH
::
:AN,
:AN,  LOADER COMPLETED, 'DCMON' IS SAVED AS TYPE 6 FILE.
:AN,
:PU,DCMON::7G 
:CA,6:P,0 
:SP,DCMON::7G 
:IF,6P,EQ,0,3 
:AN,
:DP,  UNABLE TO SAVE PROGRAM 'DCMON', NO ROOM ON LU=,8G 
:IF,,EQ,,-16
:OF,DCMON 
:RP,DCMON 
:AN,
:AN,  ****************************************************************
:AN,  *                                                              *
:AN,  *     L O A D I N G       O F       T M P G N                  *
:AN,  *                                                              *
:AN,  ****************************************************************
:AN,
:OF,TMPGN 
:OF,TMPG0 
:OF,TMPG1 
:OF,TMPG2 
:OF,TMPG3 
:OF,TMPG4 
:OF,TMPG5 
:RU,LOADR,>TMPGN::1G,,6G,LB,,,20
:IF,10G,EQ,TMPGN,8
:AN,
:AN,  LOADER HAS FAILED:
:AN,  'TMPGN' IS NOT READY !
:AN,
:AN,  DATACAP IS NOT READY, MUST RE-RUN THE TRANSFER FILE  *DATCA 
:AN,
:SV,9G,,IH
::
:IF,3G,EQ,0,39
:AN,
:AN,  LOADER COMPLETED, 'TMPGN' IS SAVED AS TYPE 6 FILES. 
:AN,
:PU,TMPGN::7G 
:PU,TMPG0::7G 
:PU,TMPG1::7G 
:PU,TMPG2::7G 
:PU,TMPG3::7G 
:PU,TMPG4::7G 
:PU,TMPG5::7G 
:CA,6:P,0 
:SP,TMPGN::7G 
:SP,TMPG0::7G 
:SP,TMPG1::7G 
:SP,TMPG2::7G 
:SP,TMPG3::7G 
:SP,TMPG4::7G 
:SP,TMPG5::7G 
:IF,6P,EQ,0,3 
:AN,
:DP,  UNABLE TO SAVE PROGAM 'TMPGN', NO ROOM ON LU=,8G
:IF,,EQ,,-29
:OF,TMPGN 
:OF,TMPG0 
:OF,TMPG1 
:OF,TMPG2 
:OF,TMPG3 
:OF,TMPG4 
:OF,TMPG5 
:PU,/TMPGN::7G
:PU,\TMPGN::7G
:CA,6:P,0 
:ST,/TMPGN::1G,/TMPGN::7G 
:ST,\TMPGN::1G,\TMPGN::7G 
:IF,6P,EQ,0,3 
:AN,
:DP, UNABLE TO RESTORE FILES: /TMPGN & \TMPGN, NO ROOM ON LU=,8G
:IF,,EQ,,-45
::/TMPGN::7G
:AN,
:AN,  ****************************************************************
:AN,  *                                                              *
:AN,  *     L O A D I N G       O F       T G P                      *
:AN,  *                                                              *
:AN,  ****************************************************************
:AN,
:OF,TGP 
:OF,TGP0
:OF,TGP1
:OF,TGP2
:OF,TGP3
:OF,TGP4
:OF,TGP5
:OF,TGP6
:OF,TGP7
:OF,TGP8
:OF,TGP9
:OF,TGPI0 
:OF,TGPI1 
:OF,TGPI2 
:OF,TGPI3 
:OF,TGPI4 
:RU,LOADR,>TGP::1G,,6G,LB,,,25
:IF,10G,EQ,TGP,8
:AN,
:AN,  LOADER HAS FAILED:
:AN,  'TGP' IS NOT READY !
:AN,
:AN,  DATACAP IS NOT READY, MUST RE-RUN THE TRANSFER FILE *DATCA
:AN,
:SV,9G,,IH
::
:IF,3G,EQ,0,65
:AN,
:AN,  LOADER COMPLETED 'TGP' IS SAVED AS TYPE 6 FILES.
:AN,
:PU,TGP::7G 
:PU,TGP0::7G
:PU,TGP1::7G
:PU,TGP2::7G
:PU,TGP3::7G
:PU,TGP4::7G
:PU,TGP5::7G
:PU,TGP6::7G
:PU,TGP7::7G
:PU,TGP8::7G
:PU,TGP9::7G
:PU,TGPI0::7G 
:PU,TGPI1::7G 
:PU,TGPI2::7G 
:PU,TGPI3::7G 
:PU,TGPI4::7G 
:CA,6:P,0 
:SP,TGP::7G 
:SP,TGP0::7G
:SP,TGP1::7G
:SP,TGP2::7G
:SP,TGP3::7G
:SP,TGP4::7G
:SP,TGP5::7G
:SP,TGP6::7G
:SP,TGP7::7G
:SP,TGP8::7G
:SP,TGP9::7G
:SP,TGPI0::7G 
:SP,TGPI1::7G 
:SP,TGPI2::7G 
:SP,TGPI3::7G 
:SP,TGPI4::7G 
:IF,6P,EQ,0,3 
:AN,
:DP,  UNABLE TO SAVE PROGRAM 'TGP', NO ROOM ON LU=,8G 
:IF,,EQ,,-49
:OF,TGP 
:OF,TGP0
:OF,TGP1
:OF,TGP2
:OF,TGP3
:OF,TGP4
:OF,TGP5
:OF,TGP6
:OF,TGP7
:OF,TGP8
:OF,TGP9
:OF,TGPI0 
:OF,TGPI1 
:OF,TGPI2 
:OF,TGPI3 
:OF,TGPI4 
:PU,/TGP::7G
:PU,\TGP::7G
:CA,6:P,0 
:ST,/TGP::1G,/TGP::7G 
:ST,\TGP::1G,\TGP::7G 
:IF,6P,EQ,0,3 
:AN,
:DP, UNABLE TO RESTORE FILES: /TGP & \TGP, NO ROOM ON LU=,8G
:IF,,EQ,,-69
::/TGP::7G
:AN,
:AN,  ****************************************************************
:AN,  *                                                              *
:AN,  * L O A D I N G   O F   H P   3 0 7 7   T I M E   U T I L I T Y*
:AN,  *                                                              *
:AN,  ****************************************************************
:AN,
:AN,
:OF,TIME
:RU,LOADR,>TIME::1G,,6G 
:IF,10G,EQ,TIME,8 
:AN,
:AN,  LOADER HAS FAILED:
:AN,  'TIME' IS NOT READY 
:AN,
:AN,  DATACAP IS NOT READY, MUST RE-RUN THE TRANSFER FILE *DATCA
:AN,
:AN,
::
:AN,
:AN,  LOADER COMPLETED 'TIME' IS SAVED AS A TYPE 6 FILE 
:AN,
:PU,TIME::7G
:CA,6:P,0 
:SP,TIME::7G
:IF,6P,EQ,0,3 
:AN,
:DP,  UNABLE TO SAVE PROGRAM 'TIME',  NO ROOM ON LU=,8G 
:IF,,EQ,,-10
:OF,TIME
:AN,
:AN,  ****************************************************************
:AN,  *                                                              *
:AN,  * L O A D I N G   O F   D C R C V   ( D B   R E C O V E R Y )  *
:AN,  *                                                              *
:AN,  ****************************************************************
:AN,
:AN,
:OF,DCRCV 
:RU,LOADR:IH,>DCRCV::1G,,6G 
:IF,10G,EQ,DCRCV,8
:AN,
:AN,  LOADER HAS FAILED:
:AN,  'DCRCV' IS NOT READY
:AN,
:AN,  DATACAP IS NOT READY, MUST RE-RUN THE TRANSFER FILE *DATCA
:AN,
:AN,
::
:AN,
:AN,  LOADER COMPLETED 'DCRCV' IS SAVED AS A TYPE 6 FILE
:AN,
:PU,DCRCV::7G 
:CA,6:P,0 
:SP,DCRCV::7G 
:IF,6P,EQ,0,3 
:AN,
:DP,  UNABLE TO SAVE PROGRAM 'DCRCV',  NO ROOM ON LU=,8G
:IF,,EQ,,-10
:AN,  DATACAP  IS  READY !! 
:AN,  
:RU,DCMON,0G,0,0,0,0
:SV,9G,,IH
                                                                                                                                                          