Changeset 1244 for trunk/libIGCM/libIGCM_sys/libIGCM_sys_ada.ksh

Timestamp:

10/09/15 16:04:04 (9 years ago)

Author:

sdipsl

Message:

• rationalyze somehow message code logic
• extend the information gathered by big brother
• clean up

File:

• trunk/libIGCM/libIGCM_sys/libIGCM_sys_ada.ksh (modified) (3 diffs)

trunk/libIGCM/libIGCM_sys/libIGCM_sys_ada.ksh

@@ -1180 +1180 @@
 
 #D-#==================================================
+#D-function IGCM_sys_getJobSchedulerID
+#D-* Purpose: Get the job ID during execution
+#D-* Examples: IGCM_sys_getJobSchedulerID jobSchedulerID
+#D-
+function IGCM_sys_getJobSchedulerID {
+  IGCM_debug_PushStack "IGCM_sys_getJobSchedulerID"
+  if ( $DEBUG_sys ) ; then
+    echo "IGCM_sys_getJobSchedulerID"
+  fi
+
+  eval ${1}=$( echo $LOADL_STEP_ID | awk -F. '{print $4}' )
+
+  IGCM_debug_PopStack "IGCM_sys_getJobSchedulerID"
+}
+
+#D-#==================================================
 #D-function IGCM_sys_GetJobID
-#D-* Purpose: Check if job_name is currently
-#D-  running or in queue
+#D-* Purpose: Get the job ID from the JobName
 #D-* Examples: IGCM_sys_GetJobID ${JobName} ${TargetUsr} JobID
 #D-
@@ -1201 +1216 @@
 #D-#==================================================
 #D-function IGCM_sys_CountJobInQueue
-#D-* Purpose: Check if job_name is currently
-#D-  running or in queue
+#D-* Purpose: Count number of users job
 #D-* Examples: IGCM_sys_CountJobInQueue ${JobName} NbRun
 #D-
@@ -1221 +1235 @@
 #D-#==================================================
 #D-function IGCM_sys_ListJobInQueue
-#D-* Purpose: Check if job_name is currently
-#D-  running or in queue
+#D-* Purpose: Produce a list of users jobs
 #D-* Examples: IGCM_sys_ListJobInQueue ${User} JobNameList
 #D-