$$**********************************************************
$$ FOLLOWING COMMAND CLEARS THE EXISTING REPORT AND HEADER 
$$**********************************************************
CAPPS/REPORT,DELETE
$$***************************************************************************** 
$$ FIRST DECLARE STRING VARIABLES TO HOLD CUSTOM HEADER AND VALUE INFORMATION
$$*****************************************************************************
DECL/STRING,CUSTOM_HEADER_1,CUSTOM_HEADER_2,CUSTOM_HEADER_3,CUSTOM_VALUE_1,CUSTOM_VALUE_2,CUSTOM_VALUE_3
$$*******************************
$$ SPACE HOLDS A SPACE CHARACTER
$$*******************************
DECL/STRING,SPACE
SPACE=' '
$$*******************************************************************************
$$ TO CREATE A CUSTOM DATE INFORMATION DECLARE A DATE HEADER AND VALUE VARIABLE
$$*******************************************************************************
DECL/STRING,DATE_HEADER,DATE_VALUE
$$ ASSIGN THE HEADER TITLE (IMPORTANT: USE SINGLE QOUTES FOR STRING VALUES)
DATE_HEADER='DATE :'
$$*************************************************************************
$$ OBTAIN/KEYBOARD COMMAND IS USED TO TAKE OPERATOR INPUT DURING EXECUTION
$$ REFER TO DMIS COMMANDS MANUAL UNDER HELP SECTION FOR MORE INFO
$$*************************************************************************
DATE_VALUE=OBTAIN/KEYBRD,'ENTER DATE'
$$***********************************************************************
$$ DECLARE A NEW STRING VARIABLE WHICH WILL HOLD BOTH HEADER AND VALUE
$$***********************************************************************
DECL/STRING,COMPLETE_HEADER
$$**********************************************************************
$$ CONCAT(STRING_1, STRING_2, ...) IS USED TO COMBINE STRING VARIABLES
$$ REFER TO DMIS COMMANDS MANUAL UNDER HELP SECTION FOR MORE INFO
$$ ASSIGN COMBINED STRING TO COMPLETE_HEADER
$$**********************************************************************
COMPLETE_HEADER=CONCAT(DATE_HEADER,DATE_VALUE)
$$************************************************************************************
$$ CH(1) IS SPECIAL VARIABLE WHICH HOLDS CUSTOM REPORT HEADER INFO
$$ CH(1) IS A SYSTEM VARIABLE, NAME OF THIS VARIABLE CAN NOT BE ALTERED
$$ CUSTOM/'STRING' IS A COMMAND TO DEFINE A CUSTOM HEADER
$$ VALUE BETWEEN '' CAN BE A CONSTANT STRING (HARD CODED) OR A VARIABLE
$$ IMPORTANT: IF A STRING VARIABLE IS USED @ SIGN MUST PRECEED THE VARIABLE NAME
$$*************************************************************************************
CH(1)=CUSTOM/'@COMPLETE_HEADER'
$$***************************************************************************
$$ R(1) IS SPECIAL SYSTEM VARIABLE THAT REPRESENTS A COMPLETE REPORT HEADER
$$ NAME OF THIS VARIABLE CAN NOT BE ALTERED
$$ ASSIGN CH(1) CUSTOM HEADER TO R(1) 
$$ OUTPUT/R(1) COMMAND WILL OUTPUT THE CUSTOM HEADER LINE CREATED ABOVE
$$***************************************************************************
R(1)=REPORT/CH(1)
OUTPUT/R(1)
$$***************************************************************************************
$$ REST OF THE CUSTOM HEADERS AND VALUES BELOW ARE CREATED IN THE SAME MANNER
$$ MAKE SURE TO OVERWRITE COMPLETE_HEADER AND CH(1) VARIABLES FOR EACH HEADER-VALUE PAIR
$$ OVERWRITTEN VARIABLES NOT NEED TO BE DECLARED AGAIN
$$****************************************************************************************
DECL/STRING,TIME_HEADER,TIME_VALUE
TIME_HEADER='TIME :'
TIME_VALUE=OBTAIN/KEYBRD,'ENTER TIME'
COMPLETE_HEADER=CONCAT(TIME_HEADER,TIME_VALUE)
CH(1)=CUSTOM/'@COMPLETE_HEADER'
R(1)=REPORT/CH(1)
OUTPUT/R(1)
$$----------------------------------------------------------------
CUSTOM_HEADER_1='WORK ORDER :'
CUSTOM_VALUE_1=OBTAIN/KEYBRD,'ENTER WORK ORDER'
COMPLETE_HEADER=CONCAT(CUSTOM_HEADER_1,SPACE,CUSTOM_VALUE_1)
CH(1)=CUSTOM/'@COMPLETE_HEADER'
R(1)=REPORT/CH(1)
OUTPUT/R(1)
$$----------------------------------------------------------------
CUSTOM_HEADER_2='BAR CODE :'
CUSTOM_VALUE_2=OBTAIN/KEYBRD,'ENTER BAR CODE'
COMPLETE_HEADER=CONCAT(CUSTOM_HEADER_2,SPACE,CUSTOM_VALUE_2)
CH(1)=CUSTOM/'@COMPLETE_HEADER'
R(1)=REPORT/CH(1)
OUTPUT/R(1)
$$----------------------------------------------------------------
CUSTOM_HEADER_3='SHIPPING NUMBER :'
CUSTOM_VALUE_3=OBTAIN/KEYBRD,'ENTER SHIPPING NUMBER'
COMPLETE_HEADER=CONCAT(CUSTOM_HEADER_3,SPACE,CUSTOM_VALUE_3)
CH(1)=CUSTOM/'@COMPLETE_HEADER'
R(1)=REPORT/CH(1)
OUTPUT/R(1)