/******************************************************************* * initialization-related definitions for PL/I symbolic debugger * *******************************************************************/ dcl 1 initdf static external, 2 initializing fixed bin(1) initial(1/*true*/), /*true only when in initialization sequence*/ 2 usertaskname char(6) initial(''), /*name task is installed as*/ 2 userpgmname char(10) varying, /*the name on the command line (name of .TSK file), less uic_file_prefix*/ 2 uic_file_prefix char(20) varying, /* Dxn:[nnn,nnn] is 13 characters, but user can imbed blanks...*/ 2 main_address fixed bin(15); /*address in user task of main procedure*/