Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^AIBCVTC

Package: IBM DDPS Record Consolidation

Global: ^AIBCVTC


Information

FileMan FileNo FileMan Filename Package
9002140 DPS IBM RECORD CONTROL IBM DDPS Record Consolidation

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
IBM DDPS Record Consolidation 1 AIBCVT0    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IBM DDPS Record Consolidation 1 DPS IBM RECORD CONTROL(#9002140)[3.5]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
IBM DDPS Record Consolidation 2 DPS IBM RECORD CONTROL(#9002140)[3.5]    DPS IBM RJE JOB(#9002141)[5]    

Fields, Total: 9

Field # Name Loc Type Details
.01 SYSTEM NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • HELP-PROMPT:  ANSWER WITH NAME OF DDPS SYSTEM RECORDS ARE TO BE FORMATTED FOR
  • CROSS-REFERENCE:  9002140^B
    1)= S ^AIBCVTC("B",$E(X,1,30),DA)=""
    2)= K ^AIBCVTC("B",$E(X,1,30),DA)
1 GLOBAL NAME PREFIX 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4) X
  • HELP-PROMPT:  ANSWER MUST BE FIRST FOUR LETTERS OF THE GLOBAL TO BE READ
  • CROSS-REFERENCE:  9002140^C
    1)= S ^AIBCVTC("C",$E(X,1,30),DA)=""
    2)= K ^AIBCVTC("C",$E(X,1,30),DA)
2 UNIX RECORDS FILE 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE THE FILE NAME WHICH WILL BE WRITTEN TO UNIX
3 NODE COUNT COMPUTED

  • MUMPS CODE:  X ^DD(9002140,3,9.3) S X=+Y(9002140,3,102) S D0=Y(9002140,3,80) S D1=Y(9002140,3,81)
    9.2 = S Y(9002140,3,80)=$S($D(D0):D0,1:""),Y(9002140,3,81)=$S($D(D1):D1,1:""),Y(9002140,3,102)=""
    9.3 = X ^DD(9002140,3,9.2) X "F D1=0:0 S D1=$N(^AIBCVTC(D0,1,D1)) Q:D1'>0  S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""")'?."" "" Y(9002140,3,102)=Y(9002140,3,102)+1" S D(1)=D1
  • ALGORITHM:  COUNT(NODES)
3.5 SECONDARY SYSTEM 0;4 POINTER TO DPS IBM RECORD CONTROL FILE (#9002140) DPS IBM RECORD CONTROL(#9002140)

  • HELP-PROMPT:  ENTER SYSTEM WHO'S RECORDS MAY ALSO BE CONTAINED IN THIS SYSTEM'S GLOBAL
4 NODES 1;0 Multiple #9002140.04 9002140.04
5 JCL 0;5 POINTER TO DPS IBM RJE JOB FILE (#9002141)
************************REQUIRED FIELD************************
DPS IBM RJE JOB(#9002141)

  • HELP-PROMPT:  ENTER IBM JOB TO BE EXECUTED WHEN DATA IS SENT TO MAINFRAME
6 BYSYNC CARD COUNT COMPUTED

  • MUMPS CODE:  X ^DD(9002140,6,9.3) S X=+Y(9002140,6,102) S D0=Y(9002140,6,80) S D1=Y(9002140,6,81) S X=$J(X,0,0)
    9.2 = S Y(9002140,6,80)=$S($D(D0):D0,1:""),Y(9002140,6,81)=$S($D(D1):D1,1:""),Y(9002140,6,102)=""
    9.3 = X ^DD(9002140,6,9.2) X "F D1=0:0 S D1=$N(^AIBCVTC(D0,2,D1)) Q:D1'>0  S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""")'?."" "" Y(9002140,6,102)=Y(9002140,6,102)+1" S D(1)=D1
  • ALGORITHM:  COUNT(BYSYNC C) (ALWAYS 0 DECIMAL DIGITS)
7 BYSYNC CARDS 2;0 Multiple #9002140.07 9002140.07
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All