isCOBOL Evolve : Appendices : Library Routines : P$ : P$GETDIALOG
P$GETDIALOG
The P$GETDIALOG library routine retrieves fields from the Choose Printer dialog box.
Syntax 1
 CALL "P$GETDIALOG" USING printDialog
Parameters
printDialog
Group Item
Group Item defined as follows:
 
01  PrintDialog.
  02  PD-ReturnValue                pic x.
  02  PD-ExtendedErrorValue pic 9(5) binary(2).
  02  PD-Flags.
       03  PD-AllPagesFlagValue      pic x.
       03  PD-SelectionFlagValue     pic x.
       03  PD-PageNumbersFlagValue   pic x.
       03  PD-NoSelectionFlagValue   pic x.
       03  PD-NoPageNumbersFlagValue pic x.
       03  PD-CollateFlagValue       pic x.
       03  PD-PrintSetupFlagValue    pic x.
       03  PD-PrintToFileFlagValue   pic x.
       03  PD-NoWarningFlagValue     pic x.
       03  PD-UseDevModeCopiesFlagValue pic x.
       03  PD-DisablePrintToFileFlagValue pic x.
       03  PD-HidePrintToFileFlagValue pic x.
       03  PD-NoNetworkButtonFlagValue pic x.
  02  PD-FromPage           pic 9(5) binary(2).
  02  PD-ToPage             pic 9(5) binary(2).
  02  PD-MinPage            pic 9(5) binary(2).
  02  PD-MaxPage             pic 9(5) binary(2).
  02  PD-Copies              pic 9(5) binary(2).
  02  DM-DeviceName                 pic X(31).
  02  DM-Fields.
       03  DM-OrientationFieldValue  pic x.
       03  DM-PaperSizeFieldValue    pic x.
       03  DM-PaperLengthFieldValue  pic x.
       03  DM-PaperWidthFieldValue   pic x.
       03  DM-ScaleFieldValue        pic x.
       03  DM-CopiesFieldValue       pic x.
       03  DM-PaperSourceFieldValue  pic x.
       03  DM-PrintQualityFieldValue pic x.
       03  DM-ColorFieldValue        pic x.
       03  DM-DuplexFieldValue       pic x.
       03  DM-YResolutionFieldValue  pic x.
       03  DM-TrueTypeOptionFieldValue pic x.
       03  DM-CollateFieldValue      pic x.
       03  DM-ICMMethodFieldValue    pic x.
       03  DM-ICMIntentFieldValue    pic x.
       03  DM-MediaTypeFieldValue    pic x.
       03  DM-DitherTypeFieldValue   pic x.
  02  DM-OrientationValue   pic 9 binary(2).
  02  DM-PaperSizeValue      pic 9(2) binary(2).
  02  DM-PaperLength        pic 9(5) binary(2).
  02  DM-PaperWidth         pic 9(5) binary(2).
 
 
  02  DM-Scale               pic 9(5) binary(2).
  02  DM-Copies              pic 9(5) binary(2).
  02  DM-PaperSourceValue   pic 9(2) binary(2).
  02  DM-ResolutionValue    pic S9 binary(2).
  02  DM-ColorValue         pic 9 binary(2).
  02  DM-DuplexValue        pic 9 binary(2).
  02  DM-YResolution        pic 9(5) binary(2).
  02  DM-TrueTypeValue      pic 9 binary(2).
  02  DM-CollateValue       pic 9 binary(2).
  02  DM-ICMMethodValue     pic 9 binary(4).
  02  DM-ICMIntentValue     pic 9 binary(4).
  02  DM-MediaTypeValue     pic 9 binary(4).
  02  DM-DitherTypeValue    pic 99 binary(4).
 
Note - only the following fields are supported:
- PD-CollateFlagValue
- PD-Copies
- DM-DeviceName
- DM-Fields
- DM-OrientationValue
- DM-PaperSizeValue
- DM-Copies
- DM-PaperSourceValue
- DM-ColorValue
Syntax 2
 CALL "P$GETDIALOG" USING settingName1, settingValue1 
                         [settingName2, settingValue2] 
                         ... 
                         [settingNameN, settingValueN]
Parameters
settingName1
settingName2
...
settingNameN
PIC X(n)
Specifies the setting name.
Possible values are:
 
“Collate Flag”
“Print Dialog Copies”
“Device Name”
“Orientation”
“Paper Size”
“Device Mode Copies”
“Default Source”
“Print Quality”
“Color”
settingValue1
settingValue2
...
settingValueN
PIC X(n) or PIC 9(n) depending on the value type
Receives the setting value.